Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Вниз

Аналог функции ExtractFileName 


MARcoDEN   (2002-02-19 20:20) [0]

Здравствуйте! Подскажите, есть ли аналог функции ExtractFileName (модуль Sysutils) в WinAPI?

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



VuDZ   (2002-02-19 20:50) [1]

нет



MARcoDEN   (2002-02-20 13:36) [2]

А чем же можно ее заменить?



VuDZ   (2002-02-20 13:46) [3]

руками писать своё - неужели так сложно?



MARcoDEN   (2002-02-22 08:22) [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) = ExeName then result := true;;
while Process32Next(PHandle,ProcEntry) do
if ExtractFileName(ProcEntry.szExeFile) = ExeName then result := true;
CloseHandle(PHandle);
end;



MBo   (2002-02-22 08:39) [5]

1) pos и copy
2) исходники sysutils



VuDZ   (2002-02-22 16:30) [6]

да я и не злюсь, всю злость сливаю в UT | MOH
просто меня то же вначале убивало такое, а сейчас есть свои либы, которые делают такую рутину.
тут же всё эллемтарно - берём 0й парамерт коммандной строки, и копируем спрва всё, что стоит до первого слэша



Anatoly Podgoretsky   (2002-02-23 11:36) [7]

Не выйдет c:filename.ext, filename.ext
Надо до слеша или до : или до конца строки




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Наверх






Память: 0.75 MB
Время: 0.02 c
1-94495           Sukhov                2002-04-16 16:43  2002.04.29  
Получение почты, а точнее приаттаченных файлов с помощью FastNet


1-94362           Aleksandr             2002-04-17 12:19  2002.04.29  
Как сделать, чтобы Делфи нормально ставила курсор на коде?


7-94593           Андрей Татуков        2002-02-04 16:14  2002.04.29  
Язык Windows


1-94413           Ирина                 2002-04-18 00:37  2002.04.29  
Помогите!!!!!!!!!!


3-94285           sany                  2002-04-08 08:57  2002.04.29  
надо базу данных написать для хранения информации о видео кассетх