Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- unit Unit2;
- interface
- uses
- Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
- Vcl.Controls, Vcl.Forms, Vcl.Dialogs;
- type
- TForm2 = class(TForm)
- procedure FormCreate(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
- var
- Form2: TForm2;
- implementation
- {$R *.dfm}
- function ExecAndWait(const FileName,
- Params: ShortString;
- const WinState: Word): boolean; export;
- var
- StartInfo: TStartupInfo;
- ProcInfo: TProcessInformation;
- CmdLine: ShortString;
- begin
- { Put the file name between the quotation marks, with all spaces in names Win9x }
- CmdLine := '"' + Filename + '" ' + Params;
- FillChar(StartInfo, SizeOf(StartInfo), #0);
- with StartInfo do
- begin
- cb := SizeOf(StartInfo);
- dwFlags := STARTF_USESHOWWINDOW;
- wShowWindow := WinState;
- end;
- Result := CreateProcess(nil, PChar( String( CmdLine ) ), nil, nil, false,
- CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil,
- PChar(ExtractFilePath(Filename)),StartInfo,ProcInfo);
- { Forward to completing the application }
- if Result then
- begin
- WaitForSingleObject(ProcInfo.hProcess, INFINITE);
- { Free the Handles }
- CloseHandle(ProcInfo.hProcess);
- CloseHandle(ProcInfo.hThread);
- end;
- end;
- procedure TForm2.FormCreate(Sender: TObject);
- var
- Drum:string;
- begin
- Drum:='C:\Project1.exe';
- ExecAndWait( Drum, '', SW_HIDE);
- application.terminate;
- end;
- end.
- // Coded by Appo //
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement