08-10-2015, 20:16
(Son Düzenleme: 08-10-2015, 20:20, Düzenleyen: Administrator.)
Delphi ile geliştirdiğiniz uygulamanızın parametle ile başlatılmasını istiyorsanız aşağıda ki örnek koddan yararlanabilirsiniz.
PHP Kod:
<?php
procedure TForm1.FormShow(Sender: TObject);
var
i:integer;
begin
if (ParamCount > 0) then
begin
for i := 0 to ParamCount do
begin
ShowMessage('Parametre ' + inttostr(i) + ' = ' + ParamStr(i) ) ;
end;
end;
end;
* Kodlarınızı FormCreate yordamına da yazabilirsiniz.
Kodlardaki ParamCount değişkeni toplam kaç tane parametre gönderildiği bilgisini tutuyor.
ParamStr(i) ile de döngüden sırasıyla parametreleri çekiyoruz.
Parametre ne gibi bir işimize yarayabilir hususunda bir örnek vermek gerekirse;
Diyelim ki bir programımız var ve Bilgisayar Başlatıldığında otomatik olarak başlatılıyor. Ama biz eğer program kullanıcı tarafından açıldıysa ekranda gözükecek şekilde açılsın; otomatik olarak başlatıldısya sistem tepsisinde simge durumunda küçültülmüş olarak başlasın istiyoruz.
Bunun için, programı otomatik başlatmak için regedite eklediğimiz komutun sonuna "TepsideBaslat" gibi bir parametre ekleyip program açılışında da bu parametre var mı diye kontrol edip buna göre haraket edebiliriz.
Parametre kontrolü yapmak için;
Konsoldan (Cmd.exe)
PHP Kod:
<?php
ProgramAdi birinciParametre ikinciParametre