Konu: Temp Klasörünün Alınması (Okunma sayısı 1001 defa)

CMNSOFT · « : 13 Ekim 2005 14:51:30 »

Kod: (delphi) [Seç]

Function GetTempDir(): String;

Var

   Lng: DWORD;

Begin

  SetLength(Result, MAX_PATH);

  Lng:= GetTempPath(MAX_PATH, PChar(Result));

  SetLength(Result, Lng);

end;

Kullanım Şekli

Kod: (delphi) [Seç]

procedure TForm1.Button1Click(Sender: TObject);

begin

  label1.caption := GetTempDir;

end;

Gönderen Konu: Temp Klasörünün Alınması (Okunma sayısı 1001 defa)

CMNSOFT

Temp Klasörünün Alınması