Bir Klasörü Windows Gezgini ile Açma

[NewMember]

Arkadaşlar arama yaptım ancak bulamadım.İstediğimiz bir klasörü windows gezgini ie nasıl açabiliriz.Dosya Açmayı yapabildim ama(win exec) klasör açamadım yardım ederseniz sevinirim.teşekkürler.

[mucar]

Kod: Tümünü seç

uses ShellApi; 
... 

 ShellExecute(Handle,'open','c:\',nil,nil,sw_ShowMaximized);

şeklinde.

[NewMember]

Arkadaşlar öncelikle özür dilerim.Galiba soruyu biraz eksik yazdım
Ben o şekilde açabiliyorum ancak orada C:\ yerine ben parametre vermek istiyorum.Ancak parametreyi string olarak verincede PChardeyip kabul etmiyor.Bende string Pchar dönüşmesi yapıp Pchar tipinde yazıyorum
Ancak o zamanda hata da vermiyor.Açmıyorda.(Tabii usesea Shellapi ekliyorum.).
Kod;

Kod: Tümünü seç

procedure Tfrmana.BtnYedekKlasorAcClick(Sender: TObject);
var a:PChar;
begin
   a:=Pchar(ExtractFilePath(Application.ExeName)+'Yedek\');
   //ShellExecute(0,'explore',a,nil,nil,SW_SHOWNORMAL);
   ShellExecute(Handle,'open',a,nil,nil,sw_ShowMaximized);
end;

Bir buna bakabilirseniz .teşekkürler.

[mucar]

Sizin dediğiniz tarzda da denedim çalışıyor. Yani Pchar'a dönüştürüyor ve de istenilen klasörü açıyor. İşletim sisteminiz nedir?

[NewMember]

Windows XP Pro
Foruma yazdığım kodu ne yaptıysam çalıştıramadım.Usesea shellapide ekliyorum ama.Olmuyor.İlginize teşekkür ederim.

[mrmarman]

Merhaba...

- Aşağıdaki şekilde yazmalısın...

Kod: Tümünü seç

var a:PChar;
begin
  a:=Pchar(ExtractFilePath(Application.ExeName)+'Yedek\');
  ShellExecute(0, 'open', 'IExplore.exe', a, '', sw_ShowMaximized);
end;

[NewMember]

Kod:

Kod: Tümünü seç

var a:PChar; 
begin 
  a:=Pchar(ExtractFilePath(Application.ExeName)+'Yedek\'); 
  ShellExecute(0, 'open', 'IExplore.exe', a, '', sw_ShowMaximized); 
end; 

Allah razı olsun hocam.Bu kod çalıştı.Çok sağolun.

[tuanna]

işte gene muharrem abi... Bu fırındaki ekmekte bitti...sizin bildiğiniz başka bir fırın varmı ?