Windows'ta Açılan dosyanın yolunu almak mümkünmü..?

[carsoft]

Arkadaşlar windows'ta açtığımız herhangi bir klasör veya dosyaların yolunu almak mümkünmü..?
Bu konuda bilgisi olan varmı acaba ..

[SimaWB]

Dosyaları açmaktan kasıt? Nasıl açıyorsunuz?

[carsoft]

dosyaları açmaktan kasıt fareyle herhangi bir klasörü açarsam açılan klasörün yolunu almak

[brs]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  fullFileName : string;

begin
  // Set up a full file name with drive and path
  fullFileName := 'C:\Program Files\Borland\Delphi7\Projects\Unit1.dcu';

  // Show the component parts of this full name
  ShowMessage('Drive = '+ExtractFileDrive (fullFileName));
  ShowMessage('Dir   = '+ExtractFileDir   (fullFileName));
  ShowMessage('Path  = '+ExtractFilePath  (fullFileName));
  ShowMessage('Name  = '+ExtractFileName  (fullFileName));
  ShowMessage('Ext   = '+ExtractFileExt   (fullFileName));
end;

[carsoft]

ben bunu kastetmedim belirli bir dosyanın yolundan bahsetmiyorum, herhangi açılan bir dosya olabilir

[mkysoft]

Bu işlem için windows API'leri hook etmeli ve dosya erişimlerini yakalamalısınız. Bu işlemi yapan bir kod yazdığınızda virus programları ugulamanızın virus olduğunu söyleyerek engelleyecektir. Amacınızın ne olduğu paylaşırsanız farklı fikirler paylaşan arkadaşlar olacaktır.

[G.Arkas]

Aradığın cevap Directory/File Monitor. Google'da çok örneği var.

[carsoft]

Yok Directory/File Monitor olmaz galiba windows apileri ile hook yazmak, çünkü belirli bir klasör veya dosyadan degil
herhangi bir dosya açılınca o dosyanın yolunu almaktan bahsediyorum.

[mkysoft]

XP'den itibaren microsoft bu işin "yasal" yollarını geliştirmiş:
https://msdn.microsoft.com/en-us/librar ... e/dn641617

Bir sürücü olarak dosya filtresi geliştirilebiliyormuş. Bildiğiniz gibi sürüclerin imzalı olması gerekiyor.

[CHack]

Açtığımız derken tam anlamadımda form üzerinde OpenFileDialogla açtığın yolu demek istediysen


---------------------------Bu örnek dosya dahil olmakla---------------------------------------
var
yol:string;
begin
if OpenDialog1.Execute then yol :=OpenDialog1.FileName;
Label1.Text:=yol;
end;
-----------------------------Bu örnek ise dosya bulunan klasör--------------------------------

var
yol:string;
begin
if OpenDialog1.Execute then yol :=ExtractFileDir(OpenDialog1.FileName);
Label1.Text:=yol;
end;
...................................................................................................