[tuxdroid-svn] r5340 - software_suite_v3/software/tool/tool-second-installer/trunk/tool-second-installer

[jerome <c2m...@c2...>]

Author: jerome
Date: 2009-09-09 10:58:54 +0200 (Wed, 09 Sep 2009)
New Revision: 5340

Removed:
   software_suite_v3/software/tool/tool-second-installer/trunk/tool-second-installer/Msinfo32Wrapper.pas
Log:
* Deleted removed object.

Deleted: software_suite_v3/software/tool/tool-second-installer/trunk/tool-second-installer/Msinfo32Wrapper.pas
===================================================================
--- software_suite_v3/software/tool/tool-second-installer/trunk/tool-second-installer/Msinfo32Wrapper.pas	2009-09-09 08:58:11 UTC (rev 5339)
+++ software_suite_v3/software/tool/tool-second-installer/trunk/tool-second-installer/Msinfo32Wrapper.pas	2009-09-09 08:58:54 UTC (rev 5340)
@@ -1,81 +0,0 @@
-unit Msinfo32Wrapper;
-
-interface
-
-uses
-  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, StdCtrls, ShellApi, ExtCtrls, WinSvc, Tlhelp32;
-
-type
-  TMsinfo = class(TObject)
-  public
-    isWorking : boolean;
-    constructor create(AOwner : TComponent);
-    function createNfo(path : string) : boolean;
-  end;
-
-implementation
-
-var
-  tuxdroidPath : string;
-
-function ShellExecute_AndWait(Operation, FileName, Parameter, Directory: string;
-  Show: Word; bWait: Boolean): Longint;
-var
-  bOK: Boolean;
-  Info: TShellExecuteInfo;
-begin
-  FillChar(Info, SizeOf(Info), Chr(0));
-  Info.cbSize := SizeOf(Info);
-  Info.fMask := SEE_MASK_NOCLOSEPROCESS;
-  Info.lpVerb := PChar(Operation);
-  Info.lpFile := PChar(FileName);
-  Info.lpParameters := PChar(Parameter);
-  Info.lpDirectory := PChar(Directory);
-  Info.nShow := Show;
-  bOK := Boolean(ShellExecuteEx(@Info));
-  if bOK then
-  begin
-    if bWait then
-    begin
-      while
-        WaitForSingleObject(Info.hProcess, 100) = WAIT_TIMEOUT
-        do Application.ProcessMessages;
-      bOK := GetExitCodeProcess(Info.hProcess, DWORD(Result));
-    end
-    else
-      Result := 0;
-  end;
-  if not bOK then Result := -1;
-end;
-
-
-constructor TMsinfo.create(AOwner : TComponent);
-begin
-  isWorking := false;
-end;
-
-function TMsinfo.createNfo(path : string) : boolean;
-var
-  ret : integer;
-begin
-  isWorking := true;
-
-  ret := ShellExecute_AndWait( 'open',
-                          PChar(extractFilePath(application.ExeName) +'info.bat'),
-                          PChar(path),
-                          PChar(''),
-                          SW_HIDE,
-                          True);
-  isWorking := false;
-
-  if ret <> 0 then
-  begin
-    result := false;
-    exit;
-  end;
-
-  result := true;
-end;
-
-end.