ShellExecute ve WinExec çalışmıyor [FARKLI]

[Jire]

Evet bi tane program var shellexecute le veya winexec yle çalışmıyor açıldığında form çıkmadan hata veriyor ve kapanıyor. ama windows explorer ile klasörden açtığım zaman açılıyor.

sw_show shownormal neredeyse hepsini denedim olmadı yardım ederseniz sevinirim.

[aslangeri]

s.a.
verdiği hata mesajı anlamlı bir mesaj mı?
belki programın parametre ile çalışması gerekiyordur.
çalıştırmaya çalıştığınız programı görmeden bişey demek biraz zor gibi görünüyor.
kolay gelsin.

[ikutluay]

Evet bi tane program var shellexecute le veya winexec yle çalışmıyor açıldığında form çıkmadan hata veriyor ve kapanıyor. ama windows explorer ile klasörden açtığım zaman açılıyor.

sw_show shownormal neredeyse hepsini denedim olmadı yardım ederseniz sevinirim.

bazı programlar açılıştışta exe adını komut satırını parametreleri kontrol edip otomatik çıkış yapabilirler.

[sabanakman]

ShellExecute ile çalıştırmanı ve çalışma klasörü olarak programın bulunduğu yolu ayrıca vermen gerekiyor olabilir. Benzeri bir iş için yazdığım kod vardı.

Kod: Tümünü seç

function Calistir(const DosyaAdi: String;const Param:String='';WorkDir:String=''): DWord;
var _param,_workdir:PChar;
begin
  if Trim(Param)='' then _param:=nil else _param:=PChar(Param);
  if Trim(Workdir)='' then begin
    if DirectoryExists(DosyaAdi) then WorkDir:=DosyaAdi
    else WorkDir:=ExtractFilePath(DosyaAdi);
  end;
  _workdir:=PChar(WorkDir);
  if Trim(DosyaAdi)<>'' then
   Result:=ShellExecute(Application.Handle, 'open', PChar(DosyaAdi), _param, _workdir, SW_NORMAL);
end;

Bunu Calistir('c:\dene.exe'); gibi bir kodla çalıştırmayı dene.

[Akin_Delphi]

Bir ekleme de benden: Parametre olarak geçtiğiniz yol içerisindeki boşluk karakterleri (örneğin C:\ProgramFiles\ içerisindeki boşluk karakteri de bir takım sorunlara yol açabiliyor.

Bir de benim kişisel tecrübemde, eğer ShellExecute'a parametre olarak geçilen handle eğer bir form handle'ı değilse de sorun oluyor.

Örneğin ShellExecute'ı bir kanal (thread) içerisinden çağırısanız ve kanal'ın handle'ını parametre olarak geçerseniz çalışmama ihtimali çok yüksek.

Saygılar ve Başarılar

[Jire]

Yardımlarınız için teşekkürler.

edit:sonunda çalıştırdım.program sadece kendi klasöründen çalıştırılabildiği için böyle yaptım oldu .

ShellExecute(Application.Handle, 'open', PChar(ExtractFileName(SettingsForm.Sc2.Text)), '', PChar(ExtractFilePath(SettingsForm.Sc2.Text)), SW_NORMAL);