- 27 Ocak 2007
- 3,177
- 1
- 591
Tanimlama :Winexec(dosyayolu,seçenek);
Bu komut ile dosya yolunu belirttigimiz çalisabilen exe dosyalarini çalistirmak için kullanilan bir komuttur.
ÖRNEK :Winexec('calc.exe',SW_SHOW); // Hesap makinesini çalistirir.Edit içine adresini yazmis oldugumuz bir prgrami çalistirmak için PCHAR çevirimini yapmaliyiz.
Bu komut ile dosya yolunu belirttigimiz çalisabilen exe dosyalarini çalistirmak için kullanilan bir komuttur.
ÖRNEK :Winexec('calc.exe',SW_SHOW); // Hesap makinesini çalistirir.Edit içine adresini yazmis oldugumuz bir prgrami çalistirmak için PCHAR çevirimini yapmaliyiz.
Kod:
[B]procedure TForm1.Button1Click(Sender: TObject);
var[/B][SIZE=2]
dosya:pchar;
[B]begin[/B]
dosya:=pchar(edit1.Text);
WinExec(dosya,SW_SHOW);
[/SIZE][B][SIZE=2]end;[/SIZE][/B]
Kod:
[B]procedure TForm1.Button1Click(Sender: TObject);
var[/B][SIZE=2]
dosya:pchar;
[B]begin[/B]
[B]if[/B] OpenDialog1.Execute [B]then[/B]
[B]begin[/B]
edit1.Text:=OpenDialog1.FileName;
dosya:=pchar(edit1.Text);
WinExec(dosya,SW_SHOW);
[/SIZE][B][SIZE=2]end;
end;[/SIZE][/B]