А зачем? Кто нить скопирует твой exe и получит твои пароли. Лучше хранить его в профиле в соотв. месте.
Код:
const
{$EXTERNALSYM CSIDL_COMMON_APPDATA}
CSIDL_COMMON_APPDATA = $0023;
function GetUserAppDataFolderPath : String;
begin
Result := GetSpecialFolderPath(CSIDL_APPDATA);
end;
function GetSpecialFolderPath(CSIDL : Integer) : String;
var
Path : PChar;
begin
Result := '';
GetMem(Path,MAX_PATH);
Try
If Not SHGetSpecialFolderPath(0,Path,CSIDL,False) Then
Raise Exception.Create('Shell function SHGetSpecialFolderPath fails.');
Result := Trim(StrPas(Path));
If Result = '' Then
Raise Exception.Create('Shell function SHGetSpecialFolderPath return an empty string.');
Result := IncludeTrailingPathDelimiter(Result);
Finally
FreeMem(Path,MAX_PATH);
End;
end;