Ну тогда еще задачка:

← →
Shaman_Naydak (2002-02-06 20:55) [21]

//1-я функция - та, о которой написал McSimm.
//Если передать ей HInstance, то она вернет имя модуля DLL/EXE.

function GetModuleFileName(Instance: LongWord) : string;
var
Buffer: array[0..261] of Char;
begin
SetString(Result, Buffer, Windows.GetModuleFileName(Instance, Buffer, SizeOf(Buffer)));
end;

// А вот эта ф-ция и ищет модуль класса, приколитесь
// проверить при компиляции с пакетом и без оного
function GetClassPackageFileName(aClass: TClass): string;
var Instance: LongWord;
begin
Result:="";
Instance:=FindClassHInstance(aClass);
if Instance <> 0 then
Result:=GetModuleFileName(Instance);
end;

>> Алексей Петров: Действительно, неплохая разминка для мозгов..
Может опубликуешь модуль с набором таких полезных ф-ций, а?

Ну тогда еще задачка: Найти похожие ветки