winexec sorusu

[hacikisi]

arkadaşlar. autorun cd yaptım. delphi formum açılışta otomotik geliyor. burda bir başlığa tıkladığımda cd nin içindeki bir deneme.pps dosyasının çalışmasını istiyorum. WinExec('d:\deneme.pps',SW_SHOWNORMAL);

bu komutta d yi belirtmek istemiyorum. çünkü her bilgisayarda cd sürücüsü d olmayabilir. şu şekilde düzenledim

WinExec('\deneme.pps',SW_SHOWNORMAL);

ancak yine çalışmadı . bu konuda fikri olan arkadaşlardan yardım alabilirmiyim. tşk.

[husonet]

Bizde Uygulamamızı Patgh olarak ele alırız

Kod: Tümünü seç

WinExec(Pchar(ExtractFilePath(Application.ExeName)+'\txtoku\'+'Project1.exe'), SW_SHOWNORMAL);

Kolay Gelsin...

[hacikisi]

hüseyin abi txt nin içeriğine birşey yazmam gerekiyormu




WinExec(Pchar(ExtractFilePath(Application.ExeName)
+'\txtoku\'+'projelerimiz.pps'), SW_SHOWNORMAL);

[husonet]

o örneğimdeki klasör ismi

Kolay Gelsin...

[hacikisi]

WinExec(Pchar(ExtractFilePath(Application.ExeName)+'\cdgiris\'+'turizm.pps'), SW_SHOWNORMAL);

kodları yukardaki gibi yazmama ragmen çalışmadı. acaba diyorum pps uzantili olan dosyalarmı çalışmıyor. illaki exe mi olmalı. yada uses kısmına bir terim eklemem gerekiyor mu?

[Misafir]

merhaba.
çalıştırmak istediğiniz dosya uygulama olmadığı için winexec ile değil de shellexecute ile çalıştırmalısınız..tabi uses satırına shellapi unitini eklemek kaydı ile..
kolay gelsin.

[macsonfor]

Ben şu şekilde kullanıyorum

Kod: Tümünü seç

winexe('çalıştırılacak exe',SW_ShowNormal');

sanırım kodda yol gösterilmezse programı exe'nin olduğu klasörde arıyor...
Kolay gelsin...

[sadettinpolat]

WinExec('\deneme.pps',SW_SHOWNORMAL);

emin değilim ama birde şu şekilde deneyin.

Kod: Tümünü seç

WinExec('.\deneme.pps',SW_SHOWNORMAL);

[hacikisi]

ShellExecute(Handle, 'open','\cdgiris\'+'turizm.pps',nil,nil,sw_ShowMaximized);


şeklinde değiştirdim oldu. sorun bu şekilde çözülmüş oldu. saygılarımı sunuyorum.