for supernewbie (логово извращенцев)

		CoderX :: Forums > Основные форумы > Программинг
for supernewbie (логово извращенцев)

Программинг Форум для тем связанных с программированием

Чат (Новых сообщений с момента вашего последнего визита нет)
Сообщение...	Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.

Опции темы

Опции просмотра

25.01.2011, 21:51

supernewbie

Местный

Регистрация: 23.09.2009

Сообщений: 1,232

Сказал Спасибо: 119

Имеет 172 спасибок в 134 сообщенях

delphi Код:

library path;

uses
  SysUtils,
  Windows,
  Classes;
var
ID, ThrHandle: Cardinal;
adr:Cardinal;
objaddr:Pointer;
otheri1:^cardinal;

procedure MyProc;
begin
adr:=getmodulehandle('project25.exe') + $A798;
otheri1:=@adr;
//messagebox(0,PChar(IntToHex(objaddr,8)),'',0);
messagebox(0,PChar(IntToStr(otheri1^)),'',0);
end;
{$R *.res}

begin
  messagebox(0,'pause','',0);
  ThrHandle:=CreateThread(nil,0,@MyProc,nil,0,id);
end.

__________________
Начало.

« Предыдущая тема | Следующая тема »

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

Ваши права в разделе
Вы не можете создавать темы Вы не можете отвечать на сообщения Вы не можете прикреплять файлы Вы не можете редактировать сообщения BB коды Вкл. Смайлы Вкл. [IMG] код Вкл. HTML код Выкл.

Часовой пояс GMT +4, время: 00:42.