quinta-feira, 24 de setembro de 2009

Retorna o path de onde o programa está sendo executado

Function ProgPath(filename:String):string;
var
st:string;
begin
st:= application.ExeName;
result:= extractfilepath(st)+filename;
end;

Nenhum comentário:

Postar um comentário