Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.12.25;
Скачать: CL | DM;

Вниз

Путь запуска dll   Найти похожие ветки 

 
fun   (2005-12-09 18:00) [0]

Как dll узнать из какого каталога ее запустили ?


 
Alexander Panov ©   (2005-12-09 18:16) [1]

function CPath: String;
var
   p: array[0..1024] of Char;
   n: Integer;
begin
   n := GetModuleFileName(HINSTANCE,@p[0],1024);
   Result := "";
   if n>0 then
   begin
       SetLength(Result,n);
       Move(p[0],Result[1],n);
   end;
end;

DllPath := ExtractFilePath(CPath);


 
begin...end ©   (2005-12-09 18:52) [2]

> Alexander Panov ©   (09.12.05 18:16) [1]

function CP: string;
var
 P: array [0..MAX_PATH] of Char;
begin
 if GetModuleFileName(HInstance, P, sizeof(P)) > 0 then
   Result := P
 else
   Result := ""
end



Страницы: 1 вся ветка

Текущий архив: 2005.12.25;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.024 c
2-1133941899
vitek
2005-12-07 10:51
2005.12.25
Регистрация DLL


14-1133566922
VirEx
2005-12-03 02:42
2005.12.25
Почему событие WM_TIMER у окна со временем начинает тормозить, и


2-1133955929
Вт
2005-12-07 14:45
2005.12.25
виртуальный диск


14-1133262163
CHES
2005-11-29 14:02
2005.12.25
А вы говорите в килограмме 1024 грамма....


1-1133163488
Alp
2005-11-28 10:38
2005.12.25
Диаграммы Excel