Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 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
Надо до слеша или до : или до конца строки



Страницы: 1 вся ветка

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

Наверх





Память: 0.56 MB
Время: 0.02 c
14-94560
Derr
2002-03-21 10:23
2002.04.29
Куда ушли авторы сайта ?


14-94546
yakshe
2002-03-05 04:37
2002.04.29
Необычный вопрос.


6-94528
Lenidus
2002-02-17 14:10
2002.04.29
Чем заменить компонент TWebBrowser?


14-94542
Judith
2002-03-22 09:37
2002.04.29
Поздравляю народ с равноденствием.


14-94559
Morfey
2002-03-16 13:20
2002.04.29
НЕ ПЕРЕВЕЛИСЬ ЛИ ПРОГРАММИСТЫ НА РУСИ





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский