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

Вниз

Передача параметров   Найти похожие ветки 

← →
webpauk   (2007-05-03 15:45) [0]

Как передать параметры проге, которую надо открыть - знаю.
а как передать параметры уже открытой проге?

---

← →
webpauk   (2007-05-03 15:45) [1]

я имею ввиду:
ShellExecute(...

---

← →
Reindeer Moss Eater ©   (2007-05-03 15:48) [2]

Четвертый параметр функции

---

← →
clickmaker ©   (2007-05-03 15:56) [3]

> ShellExecute(...

а в чем разница, если так?

---

← →
webpauk   (2007-05-03 15:57) [4]

> Reindeer Moss Eater ©   (03.05.07 15:48) [2]

нда...

---

← →
DVM ©   (2007-05-03 15:58) [5]

> а как передать параметры уже открытой проге?

если программа поддерживает принятие файлов на свое окно, то можно сделать иммитацию того что на окно программы бросили файлы. WM_DROPFILES.

---

← →
webpauk   (2007-05-03 17:33) [6]

формат команды, please
Sendmessage(WinToSendHandle, WM_DROPFILES, ...)

---

← →
webpauk   (2007-05-03 17:39) [7]

например, у меня есть список файлов, записанных в fLisT(TStringList)

---

← →
DVM ©   (2007-05-03 17:39) [8]

Drop := MakeDrop(имена файлов);
if Drop <> 0 then PostMessage(hWin, wm_DropFiles, Drop, 0);
GlobalFree(Drop);

function MakeDrop(const FileNames: array of string): THandle;
var
 I, Size: Integer;
 Data: PDragInfoA;
 P: PChar;
begin
 Size := SizeOf(TDragInfoA) + 1;
 for I := 0 to High(FileNames) do
   Inc(Size, Length(FileNames[I]) + 1);
 Result := GlobalAlloc(GHND or GMEM_SHARE, Size);
 if Result <> 0 then
 begin
   Data := GlobalLock(Result);
   if Data <> nil then
     try
       Data.uSize := SizeOf(TDragInfoA);
       P  := PChar(@Data.grfKeyState) + 4;
       Data.lpFileList := P;
       for I := 0 to High(FileNames) do
       begin
         Size := Length(FileNames[I]);
         Move(Pointer(FileNames[I])^, P^, Size);
         Inc(P, Size + 1);
       end;
     finally
       GlobalUnlock(Result);
     end
   else
   begin
     GlobalFree(Result);
     Result := 0;
   end;
 end;
end;

---

← →
Reindeer Moss Eater ©   (2007-05-03 22:44) [9]

Мда. Какие премудрости.
Если вы уж знаете хендл окна, то чем обычный sendmesage то не угодил?

---

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

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

Наверх

Память: 0.46 MB
Время: 0.039 c