Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > CreateRemoteThread

Автор: Dimannn 8.8.2005, 11:41

Обясните по человечески (а не по Дельфи-хелпски smile

), как вызвать эту функцию.

У меня постоянно в придожении, которое вызываю аккес виолейшн происходит:

instruction at addres 0x034345 (к примеру) обратилась по адресу 0x034345 (тому же).
Память не пожет быть read smile

Автор: Girder 8.8.2005, 12:19

Может код покажеш?

PS: Примеров кстати... очень много на форуме smile

Автор: Dimannn 8.8.2005, 12:44

Извени, кода - нет (Save Changes - No (достали меня ошибки)).

Но в принципе:
CreateProcess со стандартными параметрамиж

h:=LoadLibrary : моя Дллка;

CreateRemoteThread(pi.hProcess,0,0,0,GetProcAddress(h,'START'),0,0,nil,0)

Автор: Петрович 8.8.2005, 13:13

Настоятельно рекомендую почитать http://forum.vingrad.ru/index.php?showtopic=60076. Оно конечно много, но зато найдешь ответы на многие вопросы, и сможешь избежать многих ошибок.

Автор: Girder 8.8.2005, 13:32

Цитата(Dimannn @ 8.8.2005, 13:44)

Извени, кода - нет (Save Changes - No (достали меня ошибки)).

Ну тогда бы объяснил... что ты хочеш сделать... а то потому что ты сказал... может быть что угодно smile

Автор: Dimannn 8.8.2005, 13:44

В библиотеке создаётся и обслуживается формы.

Я хочу заставить эксплорер рисовать мою форму.

Автор: Петрович 8.8.2005, 23:08

Цитата(Dimannn @ 8.8.2005, 14:44)

В библиотеке создаётся и обслуживается формы.

Я хочу заставить эксплорер рисовать мою форму.

Понятнее не стало.

Автор: Dimannn 23.8.2005, 13:42

С библиотекой разобрался. А нельзя ли заставить работать такой код?

Код


Procedure My(P: Pointer);
begin
// Code
end;

procedure TForm1.FormCreate(Sender: TObject);
Var si: STARTUPINFO;
    pi: PROCESS_INFORMATION;
    i: Cardinal;
begin
GetStartupInfo(si);
CreateProcess(nil,'cmd.exe',nil,nil,false,0,nil,nil,si,pi);
CreateRemoteThread(pi.hProcess,nil,0,@My,nil,0,i);

end;

В принципе, в My могу описать всё как в отдельном приложении, а не как в части моего.