Manifest-Creator

[himitsu]

Ob es Delphi-7-kompatibel ist, kann ich jetzt nicht sagen.
Wie lautet denn die Fehlermeldung vom Compiler?

[edit] Compilieren des Quellcodes dürfte vermutlich erst ab Delphi 2006 möglich sein.



Den Rest lade ich demnächst hoch.

[nru]

Zitat von himitsu:

Wie lautet denn die Fehlermeldung vom Compiler?
[edit] Compilieren des Quellcodes dürfte vermutlich erst ab Delphi 2006 möglich sein.

jup, so siehts aus. Angefangen bei pngimage.pas, was ich aus jvcl nehmen müsste über das zu lange String-Literal in ManifestCreatorLang.pas ("String-Literale können maximal 255 Elemente besitzen")

[Horst0815]

Windows 8.1 + XE5(keine ahnung obs was nutzt) Update

Ach himitsu Du bist ja wieder da, wollte Dir nicht vorweg greifen sorry

[nru]

Perfekt! Vielen Dank.

[hathor]

Mit level="requireAdministrator" und WIN 8.0 funktioniert es sehr gut -
VIELEN DANK!

Eine Frage habe ich:
Wenn ein bereits gestartetes Programm minimiert ist und mit folgendem Code wieder angezeigt wird, statt es zum 2.Mal zu starten, ist es eigentlich unnötig, dass die Benutzerkontensteuerung aufpoppt - lässt sich das ändern?

Delphi-Quellcode:

program MyProg;

uses
  Forms, Windows, SysUtils,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

procedure SwitchToThisWindow(h1: hWnd; x: bool); stdcall; external user32 Name
'SwitchToThisWindow'; {x = false: Size unchanged, x = true: normal size}

var
  hMutex: Cardinal;
  PreviousHandle : THandle;

BEGIN
  hMutex := CreateMutex(nil, True, PChar(UpperCase(ExtractFileName(ParamStr(0)))));
  if GetLastError = ERROR_ALREADY_EXISTS then
  begin
  PreviousHandle := Windows.FindWindow(NIL,PChar(UpperCase(ExtractFileName(ParamStr(0)))));
    if Windows.IsIconic(PreviousHandle) then
                Windows.ShowWindow(PreviousHandle, SW_RESTORE);
    SwitchToThisWindow(PreviousHandle, TRUE);
    SetForegroundWindow(PreviousHandle);
    SetWindowPos(PreviousHandle,
                HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_SHOWWINDOW);
  end else
  begin
    Application.Initialize;
    Application.MainFormOnTaskbar := True;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end;
end.

[himitsu]

Zitat von hathor:

Eine Frage habe ich:
Wenn ein bereits gestartetes Programm minimiert ist und mit folgendem Code wieder angezeigt wird, statt es zum 2.Mal zu starten, ist es eigentlich unnötig, dass die Benutzerkontensteuerung aufpoppt - lässt sich das ändern?

Dein Code, welcher die zweite Instanz aktiverir und das "gestartete" Progamm wieder beendet, läuft in der Anwendung.

Und damit dieser Code ausgeführt werden kann, muß die Anwendung erstmal gestartet werden.
Da diese Anwendung Adminrechte anfordert, geht natürlich auch das UAC auf.

Die einzige Lösung, welche es diesbezüglich gibt, ist
eine Start-Anwendung ohne Adminrechte, welche schaut ob es die eigentliche Anwendung läuft.
Wenn ja, dann wird diese in den Vordergrund geholt (PS: eine Anwendung mit ungenügend Rechten darf einer Admin-Anwendung nicht einfach so alle möglichen Messages senden)
und wenn nicht, dann wird diese Anwendung gestartet. (und dabei springt dann das UAC erst an, weil diese Anwendung erst die nötigen Rechte anfordert)

[himitsu]

Zitat von nru:

Zitat von himitsu:

Wie lautet denn die Fehlermeldung vom Compiler?
[edit] Compilieren des Quellcodes dürfte vermutlich erst ab Delphi 2006 möglich sein.

jup, so siehts aus. Angefangen bei pngimage.pas, was ich aus jvcl nehmen müsste über das zu lange String-Literal in ManifestCreatorLang.pas ("String-Literale können maximal 255 Elemente besitzen")

Da hatte Horst0815 die eingebettete Sprach-XML etwas unglücklich bearbeitet.
(aber das hat ja nun eh ein Ende)

Aber du dürftest auch mindestens beim TEncoding und den kurzen Exit-Statements große Probleme bekommen, da es Diese im D7 noch nicht existierten.
Die neu eigefürgen Regionen ({$REGION 'xx'}...{$ENDREGION} ) zicken rum, aber die könnte man einfach entfernen.
oder tut sie mit {$IF CompilerVersion >= 20.0} ... {$IFEND} umschließen.


Nja, notfalls gibt es ja die kompilierte Version und sind noch ein paar mehr Strings in die Sprach-XML ausgewandert. (vorallem die Delphi-Versionen)