Киньте плиз примерчик, как имя исполняемого файла с помощью GetModuleFileName в Дельфи выудить.

Question

Киньте плиз примерчик, как имя исполняемого файла с помощью GetModuleFileName в Дельфи выудить.

Alexey Sitnichenko Мастер (1520), закрыт 15 лет назад

Весь Тырнет облазил. Только описание функции нашел.

Answer 1

Сергей Барановский Мудрец (13996) 15 лет назад

Например:
-----------------------------------------
var
wStr : string;
wNSize : LongWord;
hModule :HInst;
begin
SetLength(wStr,260);
hModule := GetModuleHandle(nil);
if GetModuleFileName(hModule,PChar(wStr),wNSize) <> 0 then
// wStr содержит имя файла с текущей программой
else
// Ошибка
;
end;

Сергей БарановскийМудрец (13996) 15 лет назад

Так как не всем понятно, дополняю ответ:
------------------------------------------------------------------------
function GetFleName(hModule:HInst):string;
var
wNSize : LongWord;
begin
SetLength(Result,260);
if GetModuleFileName(hModule,PChar(Result),wNSize) = 0 then
Result := '';
end;
----------------------------------------------------------
Например GetFileName(GetModuleHandle(nil)) возвращает имя файла с текущей программой

Answer 2

Александр Светлаков Ученик (118) 15 лет назад

var fn : string;
fn := GetModuleName(0);

Answer 3

Чак Норрис Мастер (1048) 15 лет назад

А Paramstr(0); не подойдет ?
а Application.ExeName; тоже не канает ?

Сергей БарановскийМудрец (13996) 15 лет назад

Это только пример. Читайте вопрос. Просто вне контекста невозможно подобрать moduleHandle.