Текущий архив: 2006.04.09;
Скачать: CL | DM;
Вниз
Замена ExtractFileName в Win API Найти похожие ветки
← →
Chai (2006-03-27 09:35) [0]Подскажите API функцию, которой можно заменить ExtractFileName.
Заранее блогодарен!
← →
Dmitrij_K (2006-03-27 10:12) [1]На паскале подойдет? Находится в SysUtils.pas
← →
Chai (2006-03-27 10:38) [2]> Dmitrij_K (27.03.06 10:12) [1]
Нет, я не использую SysUtils
Нашел тут GetFileTitle из ComDlg, но это не то вроде...
← →
MBo © (2006-03-27 10:42) [3]>Нет, я не использую SysUtils
Так извлеки ее оттуда ;))
И вообще она очень простая - справа налево сканируется строка, пока не встретится слэш или двоеточие, и копируется кусок справа от найденного символа.
← →
Dmitrij_K (2006-03-27 10:43) [4]Возьми исходник из SysUtils.pas
← →
Chai (2006-03-27 10:54) [5]Вот:
function GetFileTitle(lpszFile,lpszTitle: PChar; cbBuf: WORD): Integer; stdcall; external
"comdlg32.dll" name "GetFileTitleA"
procedure TForm1.Button1Click(Sender: TObject);
var
Buf: PChar;
begin
GetMem(Buf,255);
GetFileTitle("c:\windows\system32\Notepad.exe",Buf,255);
MessageBox(0,Buf,"",0);
FreeMem(Buf);
end;
← →
Chai (2006-03-27 10:55) [6]Чужие исходники передирать неинтересно :)
← →
Dmitrij_K (2006-03-27 10:58) [7]Мы не ищем легких путей! Ж)
Страницы: 1 вся ветка
Текущий архив: 2006.04.09;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.013 c
