dosya yolu öğrenmek?

[maqro]

s.a

mesela system32 klasörünün yolunu nasıl öğreniriz?

[Murat DİCLE]

Merhaba

Eğer Delphi için JEDI bileşenini yüklediysen JclSysInfo uniti ile bunu yapabilirsin.

Kod: Tümünü seç

function GetCommonFilesFolder: string;
function GetCurrentFolder: string;
function GetProgramFilesFolder: string;
function GetWindowsFolder: string;
function GetWindowsSystemFolder: string;
function GetWindowsTempFolder: string;
function GetDesktopFolder: string;
function GetProgramsFolder: string;

Gibi komutları vardır.. Ama Jedi bunu nasıl yapmış dersen System32 klasörünü öğrenmek için şöyle yap.

Kod: Tümünü seç

function GetWindowsSystemFolder: string;
var
  Required: Cardinal;
begin
  Result := '';
  Required := GetSystemDirectory(nil, 0);
  if Required <> 0 then
  begin
    SetLength(Result, Required);
    GetSystemDirectory(PChar(Result), Required);
    StrResetLength(Result);
  end;
end;

Saygılar..