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.
------------------------------------------------------------------------------
Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day
trial. Simplify your report design, integration and deployment - and focus on
what you do best, core application coding. Discover what's new with
Crystal Reports now. http://p.sf.net/sfu/bobj-july
_______________________________________________
Tux-droid-svn mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/tux-droid-svn
