>hi bapak2 delphi-ers,
>
>saya mo nanya, Bagaimana caranya mengambil argumen pada command line
>aplikasi,
>misalnya, saya punya aplikasi dengan nama : coba.exe,
>kemudian saya menjalankan dengan command line "coba.exe test"
>bagaimana mengambil argumen "test" pada command line tersebut ???
>
>klo di VB bisa pake command$, klo di delphi bagaimana??
>
>makasih sebelumnya...
>
>Lu Sher
pake ParamStr() dan ParamCount --> Baca help
contoh (dari web site Chami)
function CmdLineParamFound(sParamName : String ) : Boolean;
const
// assume that command line parameters start with the "/" character
c_token = '/';
var
i : integer;
sTemp : string;
begin
result := False;
for i := 1 to ParamCount do
begin
sTemp := ParamStr( i );
if( c_token = sTemp[ 1 ] )then
begin
if( ( c_token +
UpperCase( sParamName ) ) =
UpperCase( sTemp ) )then
begin
result := True;
exit;
end;
end;
end;
end;
begin
{ following "if" statement will be triggered if called with the /HELP
parameter:
myprog.exe /HELP
}
if (CmdLineParamFound( 'HELP' )) then
begin
// display help here...
end;
// myprog.exe /FULLSCREEN
if (CmdLineParamFound( 'FULLSCREEN' )) then
begin
// run program in full screen mode
end;
end.
Irwan
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Buy Coral Calcium for Greater Health - $23.95
http://www.challengerone.com/t/l.asp?cid=2805&lp=calcium2.asp
http://us.click.yahoo.com/MmkSQC/NTVGAA/ySSFAA/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/
