|
#16
|
|||
|
|||
ПРИДУМАЛ!
Мне только надо узнать адрес каталога в катором находится мой exe файл! как это сделать? Иногда думаешь, что Фортуна тебе улыбнулась, а оказывается – ты её просто насмешил. |
#17
|
||||
|
||||
Вот, только надо узнать полный путь к программе, и узнать с какого символа начинаеться название проги и кончается, если ты это расчитаешь, то вот код:
Код:
var s:string; begin s:=application.ExeName; Delete(s,с номера какого символа начинается имя проги,на каком номере символа заканчивается имя проги); label1.Caption:=s; |
#18
|
|||
|
|||
тоже вариант... щас попробую
Иногда думаешь, что Фортуна тебе улыбнулась, а оказывается – ты её просто насмешил. |
#19
|
|||
|
|||
var
derectoriya:string; begin derectoriya:=application.ExeName; Delete(derectoriya,67,82); showMessage(derectoriya); Не работает....( Иногда думаешь, что Фортуна тебе улыбнулась, а оказывается – ты её просто насмешил. |
#20
|
|||
|
|||
нененене...
всё понял, ты имел в виду номер буквы, а я подумал её код. Иногда думаешь, что Фортуна тебе улыбнулась, а оказывается – ты её просто насмешил. |
#21
|
|||
|
|||
я сделал!
вот код: var derectoriya:string; begin derectoriya:=application.ExeName; Delete(derectoriya,length(application.ExeName)-12,length(application.ExeName)); showMessage(derectoriya); // 12 - потому что название в месте с .exe равно 12 Иногда думаешь, что Фортуна тебе улыбнулась, а оказывается – ты её просто насмешил. |
#22
|
|||
|
|||
Спасибо тебе! да и всем кто помог.....
Иногда думаешь, что Фортуна тебе улыбнулась, а оказывается – ты её просто насмешил. |
#23
|
||||
|
||||
Мдя, чета я про свойство RootKey забыл... Попробуй перед загрузкой иконки написать
SetCurrentDir(ExtractFileDir(ParamStr(0))); Не профи, но и не чайник . D6 - лучше не придумали. Пока. |
#24
|
||||
|
||||
Это намного проще
Не профи, но и не чайник . D6 - лучше не придумали. Пока. |
#25
|
|||
|
|||
А теперь подскажите как теперь убрать программу из авто запуска...
Иногда думаешь, что Фортуна тебе улыбнулась, а оказывается – ты её просто насмешил. |
#26
|
||||
|
||||
Получить папку с программой:
sAppFolder := ExtractFilePath(ParamStr(0)); или sAppFolder := ExtractFilePath(Application.ExeName); А на счет удаление - то же самое, что и запись, только вместо reg.WriteString('My App', Application.ExeName); reg.DeleteValue('My App'); THE CRACKER IS OUT THERE |
#27
|
|||
|
|||
забыл что-то про эту тему...
Всё получилось, СПАСИБО ВСЕМ Иногда думаешь, что Фортуна тебе улыбнулась, а оказывается – ты её просто насмешил. |