Fórum Pata Temp do Windows #356652
05/04/2008
0
Noenxe
Curtir tópico
+ 0Posts
05/04/2008
Joaoshi
procedure TForm1.Button1Click(Sender: TObject);
begin
-- Edit1.text := PegaTemp;
end;
function TForm1.PegaTemp: String;
var Buffer:Array[0..144] of char;
begin
-- GetTempPath(144,buffer);
-- Result := StrPas(Buffer);
end;
Espero ter ajudado.
Gostei + 0
05/04/2008
Noenxe
//Ps.: Tem como alterar os Pata para Pasta?
Gostei + 0
05/04/2008
Emerson Nascimento
function TForm1.PegaTemp: String; var Buffer:Array[0..144] of char; begin GetTempPath(144,buffer); Result := StrPas(Buffer); end;
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)