ForumSevgisi.Com

  ForumSevgisi.Com > ForumSevgisi Webmaster Bölümü > Webmaster Genel

Webmaster Genel Webmasterlıkla ilgili Her şeyin Paylaşıldığı Bölüm.


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

Webmasterlıkla ilgili Her şeyin Paylaşıldığı Bölüm.


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

ForumSevgisi Webmaster Bölümü Kategorisinde ve Webmaster Genel Forumunda Bulunan Delphi Formunda Harici .exe Çalıştırma Konusunu Görüntülemektesiniz,Konu İçerigi Kısaca ->> Delphi Formunda Harici .exe Çalıştırma Delphi Formunda Harici .exe Çalıştırma Kod: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, ...

Kullanıcı Etiket Listesi

Yeni Konu aç  Cevapla
LinkBack Seçenekler Stil

Okunmamış 09 Nisan 2015, 16:27   #1
Durumu:
Çevrimdışı
Kaf_Dağı - ait Kullanıcı Resmi (Avatar)
Arastirmaci
Üyelik tarihi: 26 Ekim 2014
Şehir: ~~~~~~
Mesajlar: 1.130
Konular: 710
Beğenilen: 168
Beğendiği: 334
www.forumsevgisi.com
Standart Delphi Formunda Harici .exe Çalıştırma

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

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

Kod:
        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(@Rec);
  WaitForInputIdle(Rec.hProcess, 5000);
  fNotepadHandle := Windows.FindWindow( 'Notepad', nil );
  Res;
  Windows.SetParent( fNotepadHandle,Handle );
  ShowWindow(fNotepadHandle, SW_SHOW);
end;
 
end.

________________
.........................
imza
Alıntı ile Cevapla
Yeni Konu aç  Cevapla

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

Seçenekler
Stil


Saat: 23:51

Forum Yasal Uyarı
vBulletin® ile Oluşturuldu
Copyright © 2016 vBulletin Solutions, Inc. All rights reserved.

ForumSevgisi.Com Her Hakkı Saklıdır
Tema Tasarım:
Kronik Depresif


Sitemiz bir 'paylaşım' sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabiliyorlar. Bu sebepten ötürü, sitemizdeki mesaj ya da konulardan doğabilecek yasal sorumluluklar o yazıyı paylaşan kullanıcıya aittir ve iletişim adresine mail atıldığı taktirde mesaj ya da konu en fazla 48 saat içerisinde silinecektir.

ankara escort, izmir escort ankara escort, ankara escort bayan, eryaman escort, bursa escort pendik escort, antalya escort,