[killerkill]

ПРИДУМАЛ!

Мне только надо узнать адрес каталога в катором находится мой exe файл!
как это сделать?

[Winny]

Вот, только надо узнать полный путь к программе, и узнать с какого символа начинаеться название проги и кончается, если ты это расчитаешь, то вот код:

Код:

var
s:string;
begin
s:=application.ExeName;
Delete(s,с номера какого символа начинается имя проги,на каком номере символа заканчивается имя проги);
label1.Caption:=s;

[killerkill]

тоже вариант... щас попробую

[killerkill]

var
derectoriya:string;
begin

derectoriya:=application.ExeName;
Delete(derectoriya,67,82);
showMessage(derectoriya);

Не работает....(

[killerkill]

нененене...
всё понял, ты имел в виду номер буквы, а я подумал её код.

[killerkill]

я сделал!
вот код:


var
derectoriya:string;
begin

derectoriya:=application.ExeName;
Delete(derectoriya,length(application.ExeName)-12,length(application.ExeName));
showMessage(derectoriya);

// 12 - потому что название в месте с .exe равно 12

[killerkill]

Спасибо тебе! да и всем кто помог.....

[zip000]

Мдя, чета я про свойство RootKey забыл... Попробуй перед загрузкой иконки написать

SetCurrentDir(ExtractFileDir(ParamStr(0)));

[zip000]

Это намного проще

[killerkill]

А теперь подскажите как теперь убрать программу из авто запуска...

[4kusNick]

Получить папку с программой:

sAppFolder := ExtractFilePath(ParamStr(0));
или
sAppFolder := ExtractFilePath(Application.ExeName);

А на счет удаление - то же самое, что и запись, только
вместо reg.WriteString('My App', Application.ExeName);
reg.DeleteValue('My App');

[killerkill]

забыл что-то про эту тему...

Всё получилось, СПАСИБО ВСЕМ