Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2006.02.19;
Скачать: [xml.tar.bz2];

Вниз

Как определить количество файлов, помещённых на значок программы?   Найти похожие ветки 

 
Volf_555   (2005-12-04 19:46) [0]

Как определить количество файлов, которые были перенесены на значок моей программы, а также их имена?


 
XProger ©   (2005-12-04 20:16) [1]

ParamCount
ParamStr(i)


 
gdaujk ©   (2005-12-05 12:24) [2]

function CommandLineToArgvW(lpCmdLine: LPCWSTR; var pNumArgs: Integer): PPWideChar; stdcall;

implementation

function CommandLineToArgvW; external "shell32.dll" name "CommandLineToArgvW";

{gdaParamStr}

function gdaParamStr(aLines: TStrings): string;
var
 NumArgs, i: Integer;
 pArgs: PPWideChar;
 pTemp: Pointer;
 hMem: HGLOBAL;
begin
 pArgs := CommandLineToArgvW(GetCommandLineW, NumArgs);
 pTemp := pArgs;
 for i := 1 to NumArgs do
 begin
   aLines.Add(pArgs^);
   Inc(pArgs);
 end;
 hMem := GlobalHandle(pTemp);
 GlobalFree(hMem);
 //HeapFree(GetProcessHeap(), 0, pTemp);
end;


,вызов:

gdaParamStr(Memo1.Lines);

Имена заносятся в Lines, количество - NumArgs...

PS: только для Win2k...


 
Volf_555   (2005-12-05 21:37) [3]

thank



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

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

Наверх





Память: 0.44 MB
Время: 0.036 c
4-1133698927
Volf_555
2005-12-04 15:22
2006.02.19
Как правильно передать параметры приложению?


2-1138917503
Gorger
2006-02-03 00:58
2006.02.19
Ошибка Privileged Instructon ?


2-1138910656
Kolan
2006-02-02 23:04
2006.02.19
Указатель на массив.


2-1138724763
Arazel
2006-01-31 19:26
2006.02.19
Как удалить запись раз и на всегда (AdoTable)


3-1135080293
wild_arg
2005-12-20 15:04
2006.02.19
Спонтанные округления





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский