Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Замена ExtractFileName в Win API [D7, WinXP]

Chai © (2006-03-27 09:35:00)
Подскажите API функцию, которой можно заменить ExtractFileName.
Заранее блогодарен!

Dmitrij_K (2006-03-27 10:58:00) [1]
Мы не ищем легких путей! Ж)

Chai (2006-03-27 10:55:00) [2]
Чужие исходники передирать неинтересно :)

Chai (2006-03-27 10:54:00) [3]
Вот:

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;

Dmitrij_K (2006-03-27 10:43:00) [4]
Возьми исходник из SysUtils.pas

MBo (2006-03-27 10:42:00) [5]
>Нет, я не использую SysUtils

Так извлеки ее оттуда ;))

И вообще она очень простая - справа налево сканируется строка, пока не встретится слэш или двоеточие, и копируется кусок справа от найденного символа.

Chai (2006-03-27 10:38:00) [6]
> Dmitrij_K (27.03.06 10:12) [1]

Нет, я не использую SysUtils

Нашел тут GetFileTitle из ComDlg, но это не то вроде...

Dmitrij_K (2006-03-27 10:12:00) [7]
На паскале подойдет? Находится в SysUtils.pas

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »