GetCurrentDir проблемы

[eguana]

Программеры сталкнулся с такой проблемой, при запуске проги через загрузку WinLogon (Shell) программа выдает путь C:\windows\system32\
при включении компа. При последующем включении все нормально.

уже писал

try
Path:=GetCurrentDir+'foldername\';
finnaly
end;

Но такая же байда.

Как побороть ошибку

[eoln]

Нет никакой ошибки. GetCurrentDir показывает текущую папку. Либо при старте программы сам определяй папку, либо создай ярлык (там должна быть указана рабочая папку) и запускай его.
А лучше вообще не используй GetCurrentDir, ибо оно меняется многими способами (диалоговыми окнами и т.п), в итоге можно потерять пункт назначения

[eguana]

На XP таких проблем небыло. Прописал даже батничек, который запускается прогу.

cd c:\Proga
start proge.exe

Все работало на ура никогда глюков не было. При старте проги. двумя способами определяю где папка GetCurrentDir и ExtractFilePath. Такая же байда. Стартуешь после загрузки винды все нормально. Через Shell не получается. Может из-за того что Explorer отключен?

Каким способом еще узнать имя текущей дирректории?

[Аватар]

Если нужно узнать каталог, в которм exe-шник находится, то, например, Application.Exename

[eguana]

А я по твоем как определяю ? ExtractFilePath('proga.exe');

После старта винды при нажатии на прогу все работет без проблем.

[Аватар]

Сообщение от eguana

А я по твоем как определяю ? ExtractFilePath('proga.exe');

Ну и что по вашему мнению ExtractFilePath('proga.exe') определяет? Справку почитайте

[eguana]

ExtractFilePath(Application.ExeName ) ну а как еще в с кобках тебе написал просто как прога называется


function ExtractFilePath(const FileName: string): string;
var
I: Integer;
begin
I := LastDelimiter(PathDelim + DriveDelim, FileName);
Result := Copy(FileName, 1, I);
end;

вот функция сама

может делать задержку. И траит путь пока нормальный не выйдет ?

[Аватар]

Не пойму, что вам надо
ExtractFilePath(Application.ExeName ) - возвращает каталог, из которого запущена прога
GetCurrentDir - возвращает текущий каталог
Они не обязаны совпадать, ну и текущий каталог величина не постоянная, зависит от способа запуска проги и может меняться в процессе

[eguana]

Мне надо чтобы ExtractFilePath(Application.ExeName ) работала при запуске винды. и выдала путь к проге, а не Windows System32 что она делает при первом запуске винды. Не знаю с чем это связано, но на хп такого не было. Единственно попробую прописать событие в OnActivate а не в OnCreate может поможет

[eoln]

Сообщение от eguana

ExtractFilePath('proga.exe');

Весело.
Application.ExeName и 'proga.exe' вещи разные
Application.ExeName - это полный путь, иначе извлекать нечего!!!
Надо

Path := extractfilepath(paramstr(0))+'foldername\';

или

Path := extractfilepath(Application.ExeName)+'foldername\';