DLL de SW_HIDE çalışmamaması.

[Caqatay]

arkadaşlar dll içerisinde SW_Hide yazdığımda çalıştıramadım.Açtığım program gözüküyor SW_SHOW gibi.DLL ile exe açmaya çalıştım gizli bir şekilde niçin olmadı acaba ?

bu dll dosyam :

Kod: Tümünü seç

uses
  SysUtils,
  Classes,
  Windows,
  System;

procedure calistir(x:AnsiString);export;
begin
WinExec(Pchar(x),SW_HIDE);
end;
Exports 
calistir;

{$R *.res}

begin
end.
  

buda proje :

Kod: Tümünü seç

var 
metin:AnsiString; 
begin 
metin:=Edit1.Text;
calistir(metin);
end;

buda proje dosyasının linki :
http://rapidshare.com/files/263664191/dll_exe_.rar

[Caqatay]

yokmu yardımm eden ya

[Caqatay]

yokmu ya bi el uzatan

[Caqatay]

[Lost Soul]

aşağıdaki resimde de göreceğin üzre notepad.exe'i defalarca çalıştırdım. ve trayda görünmediği halde görev yöneticisinde görünüyor.
ama aynı işlemi calc.exe de yaptığın zaman çalışmıyor. yani fonksiyonunda sorun yok.
sorun programın bu işi desteklemesinde.

[Caqatay]

programın bu işi desteklemesinde derken ne gibi destekleme neyi destekler neyi desteklemez nasıl yapabilirim ya

[Caqatay]

Bir exe yi gizli olarak çalıştırabileceğim başka yöntemler nelerdir. bir kaç örnek kod verebilirmisiniz

[Lost Soul]

gizlemek istediğin programa
gizlemek için

Kod: Tümünü seç

ShowWindow(Application.Handle, SW_HIDE);

göstermek için

Kod: Tümünü seç

 ShowWindow(Application.Handle, SW_SHOW);

satırını ekle.

[quadr]

dll için;

Kod: Tümünü seç

library Project2;

uses
  Windows;

procedure calistir(x:AnsiString);export;
begin
  WinExec(Pchar(x),SW_HIDE);
end;


procedure hides(y:string);export;
var
h: Cardinal;
begin
 h := FindWindow(nil, y);
 ShowWindow(h, SW_HIDE);
end;

Exports
calistir,
hides;
{$R *.res}

begin
end.

exe için;

Kod: Tümünü seç

procedure calistir(x:AnsiString);external 'project2.dll'

procedure hides(x:string);external 'project2.dll'

procedure TForm1.Button1Click(Sender: TObject);
begin
  calistir(Edit1.Text);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    hides(Edit2.Text);//Form caption
end;

captiona göre arama gösterdim caption değişkense bulamaz.daha iyisi exe ismine göre arayıp handle ı almandır.

[fox]

birde shellapi ile dene istersen

Shellexecute() fonksiyonu ile