Замена 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]

Мы не ищем легких путей! Ж)

Замена ExtractFileName в Win API Найти похожие ветки