в uses кидаем ShlObj, Shellapi
объявляем функцию
function GetSpecialPath(CSIDL: Word): string;
var
s: string;
begin
SetLength(s, MAX_PATH);
if not SHGetSpecialFolderPath(0, PChar(s), CSIDL, True) then
s := '';
Result := PChar(s);
end;
потом в процедуру, например формактив пишем:
procedure TForm1.FormActivate(Sender: TObject);
var
primer,local,x: string;
begin
primer:= GetSpecialPath(CSIDL_APPDATA);
local:= GetSpecialPath($1c);
x:= (primer +'\Opera\Opera\wand.dat');
вот и всё)
|
