Ders-28 'WINEXEC' - Delphi- Zamansız Tartışma Platform

ares · 07-12-07, 17:42 Çevrimdışı

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.

Code:

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

KODU :

Code:

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;

07-12-07, 17:42 Çevrimdışı	#1
ares Genel Mesajlar: 6.690 Teşekkür etti: 773 Teşekkür edildi: 2.169 RepForum Gücü: 500 Forum Puanı:49631	Ders-28 '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. Code: procedure TForm1.Button1Click(Sender: TObject); var dosya:pchar; begin dosya:=pchar(edit1.Text); WinExec(dosya,SW_SHOW); end; KODU : Code: 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;

Konu Seçenekleri
Yazdırılabilir Sümü Göster Sayfayı E-Mail'le gönder