Forum: Win32/Win64 API (native code)
Delphi
by r29d43,
11. Aug 2009
Wenn nur diese wenigen Funktionen für dich relevant sind, dann kannst Du ja auf den ganzen Rest verzichten ..und dir eben nur diese wenigen Funktionen selbst schreiben.
Forum: Win32/Win64 API (native code)
Delphi
by r29d43,
11. Aug 2009
So groß scheint die Funktion von diesem CRM-Modul nicht zu sein. Im Zweifelsfall kannst Du so eine Funktion also auch selbst schreiben, in Form von zwei/drei Procedures in deinem ursprünglichen Programm. Dann hättest Du wenigsten die volle Kontrolle über diese ganzen Abläufe. Insgesamt wäre das wahrscheinlich ein nur geringer Aufwand, gemessen an den Vorteilen, die Du damit für dich erreichst.
Forum: Win32/Win64 API (native code)
Delphi
by r29d43,
11. Aug 2009
Moin, moin,
das Programm mit der Taskbar und diese möglichen Endprogramme könnten dann ja immerhin schonmal miteinander kommunizieren.
...Und das Programm, was sich aus der Taskbar öffnen lässt, was macht das nochmal schnell in diesen Gesamtabläufen?
Forum: Win32/Win64 API (native code)
Delphi
by r29d43,
10. Aug 2009
So ohne weiteres nicht. Wenn Du allerdings die Programme miteinander kommunizieren läßt (die dann natürlich auch wieder von dir geschrieben sein müssen), dann sollte das schon gehen. Angenommen ein externes Programm A startet ein anderes externes Programm B, dann musst Du nur dafür sorgen, dass Programm A dir (sprich: deinem ursprünglichen Programm ...das mit seiner eigenen Taskbar) dieses auch...
Forum: Win32/Win64 API (native code)
Delphi
by r29d43,
6. Aug 2009
Ich schrieb "checkte", das ist "past tens", sozusagen auch die Vergangenheitsform des Verbes *g*.
imo müsste das eigentlich egal sein.
Forum: Win32/Win64 API (native code)
Delphi
by r29d43,
6. Aug 2009
ungefähr so insgesamt?
function getTWHandle(twH1,twH2,twH3 : THandle) : THandle;
function checkHandle(hToCheck : THandle) : boolean;
begin // muss true sein wenn hToCheck nicht schon in Handle123 registriert ist
result := (twH1 <> hToCheck) and (twH2 <> hToCheck) and (twH3 <> hToCheck);
end;
begin
result := 0;
repeat