|
|
|
DERS ANLATIMI WINEXEC |
|
WINEXEC
| 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. |
procedure TForm1.Button1Click(Sender: TObject);
var
dosya:pchar;
begin
dosya:=pchar(edit1.Text);
WinExec(dosya,SW_SHOW);
end; |
|
|
| KODU :
|
procedure TForm1.Button1Click(Sender: TObject);
var
dosya:pchar;
begin
if OpenDialog1.Execute then
begin
edit1.Text:=OpenDialog1.FileName;
dosya:=pchar(edit1.Text);
WinExec(dosya,SW_SHOW);
end;
end; |
|
| |
|
|
|
|
|