| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

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

Volf_555 ©   (2005-12-04 19:46:00) 

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

---

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

thank

---

gdaujk   (2005-12-05 12:24:00) [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...

---

XProger   (2005-12-04 20:16:00) [3]

ParamCount
ParamStr(i)

---

Наверх