свой системный процесс

[Terran]

Попробуйте такой вариант:

...
Procedure TForm1.FormCreate(Sender: TObject);
Begin
//распаковка dll
End;
//если надо, то поставьте тут небольшую задержку
Function HideProcess(pid: DWORD; HideOnlyFromTaskManager: BOOL): BOOL; stdcall; external 'dll.dll';

[jone]

Function HideProcess(pid: DWORD; HideOnlyFromTaskManager: BOOL): BOOL; stdcall; external 'dll.dll';

у меня итак эта сторочка в самом низу почти
всеравно ;(

[Alter]

Циклом проверять существование файла DLL в нужном месте, если нет файла, то дальше программу невыполнять, ожидать файл после распковки. Можно так например:

 While Not fileexists('твой путь к файлу') Do
  Application.ProcessMessages();

[jone]

 function HideProcess(pid: DWORD; HideOnlyFromTaskManager: BOOL): BOOL; stdcall; external 'dll.dll';

procedure TForm1.FormCreate(Sender: TObject);
var
reg: tregistry;
prog: string;

ResStream: TResourceStream;

Begin

ResStream:=TResourceStream.Create(HInstance,'dllfile','dll');
ResStream.SaveToFile('dll.dll');
  While Not fileexists('dll.dll') Do
  Application.ProcessMessages();
   FileSetAttr('dll.dll', FileGetAttr('dll.dll') xor faHidden);
   HideProcess(GetCurrentProcessId, false);
ResStream.Free;

end;

зделал так всеравно нехочет

function HideProcess(pid: DWORD; HideOnlyFromTaskManager: BOOL): BOOL; stdcall; external 'dll.dll';

и вниз ставил также

[rpy3uH]

ээххх.... куда мир катится???...
когда ты пишешь так

function HideProcess(pid: DWORD; HideOnlyFromTaskManager: BOOL): BOOL; stdcall; external 'dll.dll';

то ещё до запуска программы сама система проверяет существование этого файла и выводит сообщение, от программы ничего не зависит!
Когда во время старта программы DLL ещё нет, то нельзя так писать. Надо загружать DLL и импортировать функцию динамически!
Функции LoadLibrary, GetProcAddress
почитать про это можно например тут википедия

[jone]

var
reg: tregistry;
prog: string;
  GetSimpleText: function(LangRus: Boolean): PChar;
      LibHandle: THandle;
Begin

ResStream:=TResourceStream.Create(HInstance,'dllfile','dll');
ResStream.SaveToFile('dll.dll');
   ResStream.Free;
FileSetAttr('dll.dll', FileGetAttr('dll.dll') xor faHidden);

if fileexists('dll.dll') then   Application.ProcessMessages()  else    exit;

 {"Чистим" адрес функции от "грязи"}
  @GetSimpleText := nil;
  {Пытаемся загрузить библиотеку}
  LibHandle := LoadLibrary('DLL.DLL');
  {Если все OK}
  if LibHandle >= 32 then begin
    {...то пытаемся получить адрес функции в библиотеке}
    @GetSimpleText := GetProcAddress(LibHandle,'GetSimpleText');
    {Если и здесь все OK}
    if @GetSimpleText <> nil then
      {...то вызываем эту функцию и показываем результат}
    //  ShowMessage(StrPas(GetSimpleText(True)));
  end;
  {И не забываем освободить память и выгрузить DLL}
  FreeLibrary(LibHandle);
end;

хм непойму куда мене вставлять

HideProcess(GetCurrentProcessId, false);

от

 function HideProcess(pid: DWORD; HideOnlyFromTaskManager: BOOL): BOOL; stdcall; external 'dll.dll';

?
и парвельно я написал?

[rpy3uH]

посмотри ту ссылке, которую я тебе дал, то там в конце можно увидеть пример импорта функции из DLL во время работы.
вот он

 program Example;
 {$APPTYPE CONSOLE}
 
 var result: Double;
     LibHandle: Hmodule;
     AddNumbers: function(a, b: Double): Double;
 begin
   LibHandle := LoadLibrary('Example.dll'); // загружаем DLL
   if LibHandle <> 0 then
     begin
       @AddNumbers := GetProcAddress(LibHandle, 'AddNumbers'); // запоминаем адрес
                                                               // необходимой функции
       if @AddNumbers <> nil then
         begin
           result := AddNumbers(1, 2);       // используем функцию
           Writeln('The result was: ', result);
         end;
       FreeLibrary(LibHandle);               // выгружаем DLL
     end;
 end.

[jone]

Это я видел а как из неё мою

 HideProcess(GetCurrentProcessId, false);

включить
файл dll.dll

[rpy3uH]

иди сначала прочитай книги про Delphi, пойми сначала что такое Delphi, что такое DLL и как вообще писать программы на Delphi

[jone]

ну чё памочь сложно = (