Programı dışarıdan parametre alarak çalıştırma?

[sarp_halit]

Merhaba arkadaşlar,

tamamlamış olduğum programların hepsini tek çatı altında toplama istiyorum. bunun için hazırlayacak olduğum yeni programda her butona daha önce hazırlamış olduğum exeyi çalıştırması için komut vereceğim. sıkıntım şu.

bütün programların dışarıdan kullanıcı adı ve parolayı parametre olarak alması ve login screen gelmeden parametre ile gönderilen kullanıcı adı ve şifre ile programı başlatması. örneğin: herhangi bir butonun onclick olayına "xprogrami.exe /kullanici=kullanici_adi parola=kullanici_parolasi" yazdığımda girilen o parametrelerle o prgoramı çalıştırmak istiyorum. bunun için gelen parametreleri xprogrami.exe dosyasında nasıl dış parametre olarak aldırabilirim?

teşekkür ederim. bu arada ben de internet üzerinden bir araştırma içerisindeyim ve benden önce herhangi bir yanıt gelmezse burada paylaşacağımı belirtmek isterim.

herkese iyi forumlar.

[sabanakman]

Mesela 1. parametre kullanıcı 2. parametre şifre olacak şekilde

Kod: Tümünü seç

S:=Format('program.exe "%s" "%s"',[edtKul.Text,edtSifre.Text]);
WinExec(PAnsiChar(S),SW_SHOWNORMAL);

çalıştırılan bir programda bu değerler

Kod: Tümünü seç

KulAdi:=ParamStr(1);
Sifre:=ParamStr(2);

şeklinde elde edilebilmektedir.

[Shou]

Merhabalar, örnek proje paylaşırmısınız bana çok lazımda lütfen..

şimdiden teşekkürler..

[Rew33]

Şaban beyin söylediğine ek olarak programı şu şekilde çalıştırırsanız; çalıştırmak istediğiniz program açılınca ana menü sistemtry'a gider program kapatılınca geri ekrana gelir.

Kod: Tümünü seç

function RunProcess(const AppPath: string; MustWait: boolean;
  AppParams: string; Visibility: Word): DWORD;
var
  SI: TStartupInfo;
  PI: TProcessInformation;
  Proc: THandle;
  zFileName, zParams: array [0 .. 79] of Char;
begin
  FillChar(SI, SizeOf(SI), 0);
  SI.cb := SizeOf(SI);
  SI.wShowWindow := Visibility;
  if not CreateProcess(StrPCopy(zFileName, AppPath),
    StrPCopy(zParams, AppParams), nil, nil, false,
    Normal_Priority_Class, nil, nil, SI, PI) then
    raise Exception.CreateFmt('Hata mesajınız' + ' Hata Kodu %d', [GetLastError]);

  Proc := PI.hProcess;
  CloseHandle(PI.hThread);

  if MustWait then
    if WaitForSingleObject(Proc, Infinite) <> Wait_Failed then
      GetExitCodeProcess(Proc, Result);
  CloseHandle(Proc);
end;

çalıştırması ise

Kod: Tümünü seç

  Hide;
      Try
        RunProcess('Exe yolu', True, '', SW_SHOWNORMAL);
      Finally
        Show;
      End;

son olarak tabi ki düşünmüşsünüzdür ama mevcut çalışan projelerinizi çok kısa bir sürede bpl'ye dönüştürüp istediklerinizi daha kolay yapabilirsiniz.