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

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

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

Аналог функции ExtractFileName [D5, WinME]

MARcoDEN © (2002-02-19 20:20:00)
Здравствуйте! Подскажите, есть ли аналог функции ExtractFileName(модуль Sysutils) в WinAPI?

Заранее благодарен!

Anatoly Podgoretsky (2002-02-23 11:36:00) [1]
Не выйдет c:filename.ext, filename.ext
Надо до слеша или до : или до конца строки

VuDZ (2002-02-22 16:30:00) [2]
да я и не злюсь, всю злость сливаю в UT | MOH
просто меня то же вначале убивало такое, а сейчас есть свои либы, которые делают такую рутину.
тут же всё эллемтарно - берём 0й парамерт коммандной строки, и копируем спрва всё, что стоит до первого слэша

MBo (2002-02-22 08:39:00) [3]
1) pos и copy
2) исходники sysutils

MARcoDEN (2002-02-22 08:22:00) [4]
Не надо злиться! Вот кусок кода. Как можно обойтись без функции ExtractFileName в этом примере? Пишу прогу только на API.

uses TlHelp32;
...
var
PHandle: THandle;
ProcEntry:TProcessEntry32;
begin
PHandle:=CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS,0);
ProcEntry.dwSize:=sizeof(TProcessEntry32);
if Process32First(PHandle,ProcEntry) then
if ExtractFileName(ProcEntry.szExeFile) = ExeNamethen result := true;;
while Process32Next(PHandle,ProcEntry) do
if ExtractFileName(ProcEntry.szExeFile) = ExeName then result := true;
CloseHandle(PHandle);
end;

VuDZ (2002-02-20 13:46:00) [5]
руками писать своё - неужели так сложно?

MARcoDEN (2002-02-20 13:36:00) [6]
А чем же можно ее заменить?

VuDZ (2002-02-19 20:50:00) [7]
нет

Наверх

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