IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 11 Mart 2015, 13:46   #1
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Delphi Formunda Harici .exe Çalıştırma




Delphi Formunda Harici .exe Çalıştırma

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private fNotepadHandle:THandle; procedure res; { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} uses ShellAPI; procedure TForm1.res; begin if IsWindow(fNotepadHandle) then begin SetWindowPos(fNotepadHandle, 10, 10, 0, 60, 60, SWP_SHOWWINDOW); end; end; procedure TForm1.Button1Click(Sender: TObject); var Rec: TShellExecuteInfo; const AVerb = 'open'; AParams = ''; AFileName = 'Notepad.exe'; ADir = ''; begin FillChar(Rec, SizeOf(Rec), #0); Rec.cbSize := SizeOf(Rec); Rec.fMask := SEE_MASK_NOCLOSEPROCESS; Rec.lpVerb := PChar( AVerb ); Rec.lpFile := PChar( AfileName ); Rec.lpParameters := PChar( AParams ); Rec.lpDirectory := PChar( Adir ); Rec.nShow := SW_HIDE; ShellExecuteEx(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]); WaitForInputIdle(Rec.hProcess, 5000); fNotepadHandle := Windows.FindWindow( 'Notepad', nil ); Res; Windows.SetParent( fNotepadHandle,Handle ); ShowWindow(fNotepadHandle, SW_SHOW); end; end.


__________________
SusKun ve Sessiz Mürekkep...


Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Cevapla

Etiketler
çalıştırma, delphi, delphi formunda harici exe çalıştırma, exe, formunda, harici


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Salma Hayek formunda Desmont Haber Arşivi 0 02 Ocak 2015 23:03
ScanX Çalıştırma... W@RNiNG Eggdrop, NeoStats, BNC 5 11 Aralık 2012 17:00
dialog çalıştırma RegSubex mIRC Scripting Sorunları 1 30 Mart 2011 10:23
ISS den PHP çalıştırma Hk. BuCaLI PHP 6 27 Aralık 2008 21:01
CD olmadan pc oyun v.s çalıştırma! blackkurt38 Oyun Dünyasından Son Haberler 1 26 Nisan 2008 16:58