[sasha.belyi]

Уважаемые форумчане, подскажите пожалуйста как задать путь до файла, что бы он выглядел примерно так: %UserProfile%\1.txt. Нужно для копирования файла. Дело в том, что когда нормально прописываю путь, то всё получается, а когда через переменную среду, то ничего не происходит.

[~TB~]

У меня работает как-то так:

function GetSpecialFolderPath(Folder: Integer): string;
const
SHGFP_TYPE_CURRENT = 0;
var
Path: array [0 .. MAX_PATH] of Char;
begin
if Succeeded(SHGetFolderPath(0, Folder, 0, SHGFP_TYPE_CURRENT, @Path[0])) then
Result := Path
else
Result := '';
end;

function GetAppDataFolderPath: string;
begin
Result := GetSpecialFolderPath(CSIDL_LOCAL_APPDATA);
end;

...
AppDataMyFilePath := GetAppDataFolderPath + '\' + MyFileName;
...

[sasha.belyi]

А как сделать так, что бы при наведении на окошко, он убегало куда нибудь в другое место?

[nixel]

в OnMouseOver менять положение (свойства Left и Top) объекта.
изменение только правильно задайте, чтобы за границы формы (или экрана, если нужно менять положение формы) не убегало.