веду логи

[nusya24]

program Project1;

uses SysUtils, Registry;

var f:TextFile;

s,rname:String;

R:TRegistry;

begin

R:=TRegistry.Create;

R.OpenKeyReadOnly('Software\Microsoft\Windows\CurrentVersion\Explorer');

rname:=R.ReadString('Logon User Name');

R.CloseKey;

R.Free;

AssignFile(f, './logs.log');

if FileSearch('logs.log', './')<>'' then

Append(f)

else

Rewrite(f);

s:=rname+' '+DateToStr(Date)+' '+TimeToStr(Time);

Writeln(f, s);

CloseFile(f);

end.

Это текст моей програмки на делфях. Что делает: в файл logs.log пишет пользователя, который вошел в писюк, дату и время вхождения.

Прописываю exe-шник в ветке реестра RUN

Как видно по коду файл logs.log должен писаться в тойже папке, где лежит exe-к. Это и происходит если запускать вручную.

А вот если прога запускается через ветвь RUN, то происходит странное, а именно: лог пишется в папке "Documents and Settings/имя пользователя"

ЧТО ЗА ФИГНЯ???????????????

[yuriks]

Файл пишется в текущую папку а не туде где exe

надо так :

AssignFile(f, ExtractFilePath(ParamStr(0))+'logs.log');