Главная страница
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.054 c
2-1134320453
floxi
2005-12-11 20:00
2005.12.25
Открытие готового заданного файла


1-1133426979
general
2005-12-01 11:49
2005.12.25
Ограничение на длину элемента списка в TMemo


14-1133507050
Ega23
2005-12-02 10:04
2005.12.25
С днем рождения! 2 декабря


14-1133638993
Piter
2005-12-03 22:43
2005.12.25
Российские комманды в европейских кубках


2-1133682214
bogdan
2005-12-04 10:43
2005.12.25
Цвета в мемо