Setelah bongkar2 arsip ada procedure berikut yg mungkin bisa dipake utk
ganti shellexecute.
Mungkin perlu disesuaikan sesuai kebutuhan:
procedure ExecuteAndWait(FileName: string); // Full path aplikasi
var
aAppName: array[0..512] of char;
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
begin
StrPCopy(aAppName, FileName);
FillChar(StartupInfo, Sizeof(StartupInfo), #0);
StartupInfo.cb := Sizeof(StartupInfo);
StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow := SW_SHOW;
CreateProcess(nil, aAppName, nil, nil, false,
CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, nil,
StartupInfo, ProcessInfo);
if ProcessInfo.hProcess <> 0 then
begin
WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
TerminateProcess(ProcessInfo.hProcess, 0);
end
else
raise Exception.Create('Gagal bikin process.');
end;
Rgds,
Roy
----- Original Message -----
From: "Rudy Gunawan" <[EMAIL PROTECTED]>
Sent: Monday, June 16, 2003 11:15 AM
> teman2, gimana agar perintah ShellExecute pd Delphi dilaksanakan satu per
satu dari atas ke bawah, misal :
> ShellExecute ke 1 dilaksanakan setelah selesai baru yg ke 2 dst nya,
soalnya ketika saya perhatikan yg ke 1 belum selesai yg berikutnya udah
dilaksanakan, akibatnya program tdk berjalan spt yg diharapkan.. Mohon
pencerahannya.. makasih.
>
> Regards,
> Rudy
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Looking for the latest Free IT White Papers?
Visit SearchSecurity.com to access over 500 white papers.
Get instant access at SearchSecurity.com Today
http://us.click.yahoo.com/.lAzoD/QLNGAA/witMAA/i7folB/TM
---------------------------------------------------------------------~->
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
