Moin !
Habe da eine Anwendung die ich nur unter der Bedingung starten möchte, dass die Software mit einem Admin User gestartet wurde.
Nun war meine Idee im Projektcode meine Abfrage zu platzieren und dann eine Meldung auszugeben und (im einfachsten Fall) die Anwendung zu beenden. Das Hauptformular soll jedoch nicht mehr angezeigt werden.
Nun hat aber das Projekt ein eingetragenes Hauptformular und das wird auch erzeugt. Das sieht dann irgendwie blöd aus ...
Mein Code:
Delphi-Quellcode:
begin
if DSiIsWinNT then
if IsAdmin then
//log('Programm wird im Admin Mode ausgeführt', ClGreen, False)
else begin
//log('Programm wird im USER Mode ausgeführt. Keine Installation möglich.', ClRed, False);
if (MessageDlg('Der Installer wurde nicht im Admin Mode gestartet. '+#13+#10
+'Soll der Elevation Dialog angezeigt werden? '+#13+#10
+'(Start als Administrator)', mtError, [mbYes, mbNo], 0) = mrYes) then begin
ShowWindow(Application.Handle, SW_HIDE);
ShellExecEx(Application.ExeName,
'',
ExtractFileDir(ParamStr(0)),
'runas',
SW_SHOWNORMAL);
Application.Terminate;
end else begin
Application.Terminate;
end;
end;
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TInstallForm, InstallForm);
Application.Run;
end.
Wie kriege ich es nun hin das nur der MessageDlg startet und danach nicht noch das Formular aufflackert, obwohl schon ein Application.Terminate kam?
Ich habe schon versucht den unteren Teil ab Initialize über eine Bool Variable zu kapseln. Aber das bringts nicht. Das Formular wird so oder so erzeugt
