Vielen Dank Luckie.
Das probiere ich jetzt aus. Mal sehen wer der [irgendein legitimes Schimpfwort] ist, der da auf meinen Rechner/Daten zugreifen will.
Beste Grüße!
Go2EITS
//NACHTRAG:
Ich habe es probiert. Mit der
Unit von Lukie komme ich leider nicht klar. Die
Unit ist gut und schön, aber wohl eher für die Fortgeschrittenen. Mir fehlen einfach Beispiele für Aufrufparameter, Initalisierungen, Beispiele.
OOP ist nicht mein Ding. Ich stelle mal mein Prog hier rein, in der Hoffnung, dass ich nicht erst acht Tage
OOP lernen muss, um mit der
Unit umgehen zu können. Dann ist es ein wenig einfacher für Euch und auch mich. (Ich habe natürlich schon gegoogelt und auch bei MSN reingesehen, ohne Erfolg.)
Hier der Button3, der eigentlich den Parentprozess holen soll und dann:
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
VAR P:Tproclist;
begin
//Das klappt noch...
p.create;
//p.execute; ...schon nicht mehr...
// Es geht wahrscheinlich so:
// Aufrufer übergibt Passwort an Dummy.exe, dann wird über Shellexecute das ursprüngliche
// Programm (wurde sicherheitshalber umbenannt) ausführen.
// Damit ist alles OK!
//
// Hier die Strategie, wenn der Aufrufer "nicht autorisiert" ist.
// Aufrufer übergibt kein Passwort dann:
// Aufrufer ID holen
// AufruferNAmen holen (Datei,Prozess)
// User fragen, ob ausführen erlaubt ist, wenn ja, mit shellexecute ausführen,
// wenn nicht:
// Aufrufer prüfen ob: IsService then KillService
// Not Isservice then KillProg
// Ich gehe davon aus, das ein normalers Programm anders gekillt wird als ein Service.
//
end;
Soweit mein Grobentwurf.
Es wäre nett, wenn sich das jemand anschaut.
Beste Grüße!