Форум: "Начинающим";
Текущий архив: 2006.04.09;
Скачать: [xml.tar.bz2];

Вниз

Замена 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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.011 c