🚀 go-pugleaf

Hello,

    There is a strange bug connected with OnItemActivate event with
TListView component... Let say you have this code associated with
OnItemActivate event on ListView1 component (it starts NOTEPAD.EXE and waits
until NOTEPAD.EXE is terminated).

// BEGIN OF CODE
procedure TForm1.dfsExtListView1ItemActivate(Sender: TObject);

  function InstExec (const Filename, Params: String; WorkingDir: String;
  const WaitUntilTerminated, WaitUntilIdle, RunMinimized: Boolean;
  const ProcessMessagesProc: TProcedure): Boolean;
  var
    CmdLine: String;
    WorkingDirP: PChar;
    StartupInfo: TStartupInfo;
    ProcessInfo: TProcessInformation;
  begin
     Result := True;
     CmdLine := {$IFDEF WIN32}'"'+{$ENDIF}Filename{$IFDEF WIN32}+'"'{$ENDIF}
+ ' ' + Params {$IFNDEF WIN32} + #0 {needs null terminator for Delphi 1}
{$ENDIF};
     FillChar (StartupInfo, SizeOf(StartupInfo), 0);
     StartupInfo.cb := SizeOf(StartupInfo);
     if RunMinimized then begin
        StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
        StartupInfo.wShowWindow := SW_SHOWMINIMIZED;
    end;
    if WorkingDir '' then  WorkingDirP := PChar(WorkingDir)
      else WorkingDirP := nil;
    if not CreateProcess(nil, PChar(CmdLine), nil, nil, False, 0, nil,
WorkingDirP,     StartupInfo, ProcessInfo) then begin
       Result := False;   Exit;
    end;
   with ProcessInfo do begin
     CloseHandle (hThread);
     if WaitUntilIdle then
       WaitForInputIdle (hProcess, INFINITE);
     if WaitUntilTerminated then
       repeat
          application.processmessages;
          until MsgWaitForMultipleObjects(1, hProcess, False, INFINITE,
QS_ALLINPUT) WAIT_OBJECT_0+1;
      CloseHandle (hProcess);
      end;
  end;

begin

instexec('c:\windows\notepad.exe','c:\test.txt','c:\',true,true,false,nil,i)
;
end;
// END OF CODE

    Now run the application, and double click on any item (to start this
event). Notepad will start, but we cannot do anything with ListView in the
application any more (it's halted) until NOTEPAD is terminated.

    If we use ENTER key to open selected item (instead of double click),
everything works fine and we can use application and ListView component even
if NOTEPAD is still active.

Credits and free licenses of PowerArchiver for anyone who finds a
solution...

Thanks.

Ivan Petrovic
ConeXware, Inc.
~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-
email: ivan@powerarchiver.com
web  : http://www.powerarchiver.com
~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-