Каталог вашего приложения IV

Читатель пишет:

В "Советов по Delphi" в трех публикациях с заглавием "Каталог вашего приложения" (Раздел "Разное") перечислены методы, которые будут неверно работать например с isapi dll. Для решения этой проблемы я использую такой код:

procedure TWebModule1.WebModuleCreate(Sender: TObject);
var

SP: array[0..MAX_PATH-1] of char;

ScriptPath: string;

begin

SetString(ScriptPath, SP, GetModuleFileName(hInstance, SP, SizeOf(SP)));

ScriptPath := ExtractFilePath(ScriptPath);

// Здесь ваш код, использующий ScriptPath

end;

Best regards,
Yaroslav
oya@hotmail.ru
http://www.oya.hotmail.ru [000913]