Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Получение имени модуля

Валентин Озеров


procedure TForm1.Button1Click(Sender: TObject);
var
  szFileName : array[0..49] of char;
  szModuleName : array[0..19] of char;
  iSize : integer;
begin
  StrPCopy(szModuleName, 'NameOfModule');
  iSize := GetModuleFileName(GetModuleHandle(szModuleName),szFileName,
    SizeOf(szFileName));
  if iSize > 0 then
    ShowMessage('Имя модуля с полным путем: ' + StrPas(szFileName))
  else
    ShowMessage('Имя модуля не встречено');
end;

Андрей Иванов


procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(ParamStr(0));
end;

Степанова Павла


// Включить в Uses SysUtils

procedure TMainForm.Button2Click(Sender: TObject);
var 
  AppDirectory, AppPathName: string;
begin
  AppPathName := Application.ExeName;
  AppDirectory := ExtractFilePath(AppPathName);
  messageDlg('Имя программы '+ AppPathName+#13+
    'Имя каталога программы '+ AppDirectory
    ,mtInformation,[mbOK],0);
end; 

Проект Delphi World © Выпуск 2002 - 2024
Автор проекта: USU Software
Вы можете выкупить этот проект.