Главная страница
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.027 c
14-1133420205
Sergey_Masloff
2005-12-01 09:56
2005.12.25
На борландовский семинар


2-1133968311
kop
2005-12-07 18:11
2005.12.25
Что делаю не так?


2-1134208558
wardoc
2005-12-10 12:55
2005.12.25
Проблемы с окном StayOnTop


1-1133184391
revenkov
2005-11-28 16:26
2005.12.25
Как добавить в свою dll-ку компонент (неизуальный)


3-1131295247
Michael5
2005-11-06 19:40
2005.12.25
Подскажите, незаполненные поля БД увеличивают размер файла или не