Program Parametreyle Başlasın [Delphi]

[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:

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:

ProgramAdi birinciParametre ikinciParametre 


Şeklinde deneme yapabilirsiniz.