-----Original Message-----
From: CyberMatrix <[EMAIL PROTECTED]>
To: bbs <[EMAIL PROTECTED]>
Date: Thursday, August 05, 1999 9:53 PM
Subject: Re[2]: [ Hackerlink ] Eksekusi command DOS di Delphi
Kalo mo diskusi D ke [EMAIL PROTECTED] subject subscribe delphi
>Tuesday, August 03, 1999, 8:20:02 PM, bbs wrote:
>
>b> Pake DeleteFile, FindFirst, FindNext
>^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
>Udah, tapi koq selalu tersisa satu file yang posisinya paling atas
>yach ? Skripnya sebagai berikut :
>
> FindFirst(Dir, faArchive, SearchResult);
try
> ArrayFile[a] := ExtractFileName(SearchResult.Name);
> a := a + 1;
>
> while (FindNext(SearchResult) = 0) do begin
> ArrayFile[a] := SearchResult.Name;
> a := a + 1;
// FindNext(SearchResult); ngak usah diulang
> end;
>
finally
> FindClose(SearchResult);
end;
> for b := 1 to a do begin
// for b := 1 to a-1 do begin
> TempFile := ExtractFileName(ArrayFile[b]);
> DeleteFile(TempFile);
> end;
>
> RmDir(TempDir);
>
> Sorry.. masih kacangan tuh programmnya, tambal sulam...
Ngak tahu bisa apa ngak, ngak dicoba juga :)
>
>b> ...WinExec/ShellExecute adanya di win32.hlp
>
>Koq gak ada yach ? Apa bukan package bawaan ?
>
sourcenya ada di windows.pas kalo pake D4 helpnya ada di dir MSHelp, kalo
pake D3 helpnya memang belom ada (tapi command itu bisa dipake) soalnya
dllnya udah ada dari sononya (API WIndows), coba anda ketik
WInExec([CtrlShiftSpace], tataaaaa keluar deh parameternya
milis ini didukung oleh :
>> http://www.indolinux.com - dunia linux indonesia
-------------------------------------------------------------------
untuk berhenti kirim email ke [EMAIL PROTECTED]
untuk melihat peraturan kirim email ke [EMAIL PROTECTED]
arsip berada di http://www.mail-archive.com/[email protected]
