Консоль (Delphi)

[VadEr]

Добрый день?

Как в консоле использовать Handle? Он не распознается.
Подключены: Dialogs, ShellApi, SysUtils, Windows.

[Neeter]

Вообще-то THandle находится в System, который даже подключать не надо, он автоматически подключается.
Так что вы что-то напутали.

[VadEr]

Если я что-то напутал, то пожалуста проверте код программы. Предпологается, что программа в скрытом режиме скопирует базы для Касперского v.7 из самого Касперского в текущую директорию. Программа нормально работает, если это полоценное приложение с формой. А надо как "демон".

program Project1;

uses
  SysUtils, ShellApi, Windows;

var
  From : array [0..255] of Char;
  SHFileOpStruct : TSHFileOpStruct;
  i : byte;
  d : string;

procedure copy;
begin
  with SHFileOpStruct do
    begin
      Wnd:= Handle;
      wFunc:=FO_COPY;
      pFrom:=@From;
      pTo:=PChar(d + '\KAV-bases');
      fFlags:=0;
      fAnyOperationsAborted := False;
      hNameMappings:=nil;
      lpszProgressTitle:=nil;
    end;
 SHFileOperation( SHFileOpStruct );
end;


begin
   GetDir(0,d);
   if not DirectoryExists('KAV-bases') then CreateDir('KAV-bases');

   SetCurrentDirectory( PChar( GetEnvironmentVariable('ALLUSERSPROFILE')
          + '\Application Data\Kaspersky Lab\AVP7\Bases' ) );
   From := '*';
   copy;

   i := 0;
   SetCurrentDirectory( PChar( GetEnvironmentVariable('ALLUSERSPROFILE')
          + '\Application Data\Kaspersky Lab\AVP7\Data' ) );
   Repeat
       i := i + 1;
       case i of
            1: From := '*.xml';
            2: From := '*.ini';
            3: From := '*.dat';
            4: From := '*.pbv';
       end;
       copy;
    until i = 4;

   SetCurrentDirectory( PChar( GetEnvironmentVariable('ALLUSERSPROFILE')
          + '\Application Data\Kaspersky Lab\AVP7\Data\ru' ) );
   From := '*';
   copy;

   i := 0;
   SetCurrentDirectory( PChar( GetEnvironmentVariable('ALLUSERSPROFILE')
          + '\Application Data\Kaspersky Lab\AVP7\Data\Updater\Temporary Files\temporaryFolder\AutoPatches\kav6\7.0.1.321' ) );
   Repeat
       i := i + 1;
       case i of
            1: From := '*.dll';
            2: From := '*.ppl';
       end;
       copy;
    until i = 2;

   SetCurrentDirectory( PChar( GetEnvironmentVariable('ALLUSERSPROFILE')
          + '\Application Data\Kaspersky Lab\AVP7\Data\Updater\Temporary Files\temporaryFolder\AutoPatches\kav6\7.0.1.321\X86' ) );
   From := '*';
   copy;
end.

[Пепел Феникса]

Application.Handle посмотрите

[Neeter]

Попробуйте заменить строчку:

Wnd:= GetActiveWindow;

[Somebody]

Так если не надо, чтобы было окошко со статусом, зачем в этот hWnd писать что-то кроме нуля?

[VadEr]

Всем спасибо за помощь!