Delphide Program Kısayolunu Belirterek Çalıştırmak Acil

[rockchart]

Sorunum hala devam ediyor ama.Programı yaptım ancak istediğim şekilde değil.Benim öğrenmek istediğim şey bi tarafta edit olucak ben o edit kutusuna programın parametresini yazıcam (C:\Program Files\Oyun\Oyun.exe gibi)ardından butona bastığımda o yazdığım parametredeki uygulama çalışıcak.

[sabanakman]

Yeniden sıfır bir proje oluşturun ve

s.a

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
Dosya:pchar;
begin
 Dosya:=pchar(Edit1.Text);
 WinExec(dosya,SW_SHOW);
end;

Bu Şekilde Acabilrsin kolay gelsin

önerisini değerlendirmeye alın. Bir sorun olmayacaktır.

[rockchart]

Yeniden sıfır bir proje oluşturun ve

s.a

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
Dosya:pchar;
begin
 Dosya:=pchar(Edit1.Text);
 WinExec(dosya,SW_SHOW);
end;

Bu Şekilde Acabilrsin kolay gelsin

önerisini değerlendirmeye alın. Bir sorun olmayacaktır.

Ancak bu kodu girince butona tıklayınca hiçbirşey olmuyor.Uses'e herhangi birşey ekliyormuyuz?

[sabanakman]

Hayır. Yeni proje oluşturup form üzerine sadece bir Edit, bir de Button ekledikten sonra butona yukarıdaki kodu yazınca, Edit1 içindeki program dosya adı ne yazıyorsa onu çalıştırır.

[rockchart]

Şimdi denedim ve oldu.Teşekkür ediyorum tüm arkadaşlara.