Aktuell hab ich also nur eine Lösung gefunden.
(die Makros der IDE-Tools sind wirklich vollkommen schrottig und obwol sich schon was, seit Delphi 2009/2010 geändert hat, ist es insgesamt unzumutbar und mich wundert es, daß sich da nur so Wenige beschwert haben)
* Zuerst sind vor Delphi 2009/2010 keinen kombinierten Parameter ala "abc=$PROJECT" möglich.
* Und man muß die Parameter selber parsen, denn ohne die " würde ein Parameter ja eventuell als mehrere Parameter erkannt (z.B. bei enthaltenen Leerzeichen).
Problem dabei ist, daß man praktisch nur einen Parameter von der
IDE aus übergeben kann,
oder man muß mit der Reihenfolge aufpassen.
- zuerst alle Parameter, welche von der
IDE aus korrekt übergeben werden und danach ist nur noch ein Parameter möglich (wobei man hier notfalls mit einem Trennzeichen/Trennwort arbeiten könnte)
Eie einfache Möglichkeit den fehlerhaften $PROJECT auszulesen, wäre
(wobei man nun bei allen möglichen Lösungen von einem festen Format ausgehen muß, um es entsprechend poarsen zu können)
Delphi-Quellcode:
// Parameter = "$PROJECT"
Var TheProject: String;
i: Integer;
TheProject := ParamStr(1);
For i := 2 to ParamCount do
TheProject := TheProject + ' ' + ParamStr(i);
ShowMessage(TheProject);
Ein Problem hierbei bilden Datei-/Pfadnamen mit mehrfachen zusamenhängenden Leerzeichen, denn diese wurden beim Parsen in ParamStr entfernt und hier nur durch ein ' ' ersetzt.
Wenn zusätzlich noch andere Parameter nötig wären, dann
Delphi-Quellcode:
// Parameter = "$CURTOKEN $PROJECT"
Var TheProject: String;
i: Integer;
TheCurrentToken := ParamStr(1);
TheProject := ParamStr(2);
For i := 3 to ParamCount do
TheProject := TheProject + ' ' + ParamStr(i);
ShowMessage(TheProject);
Die Lösung des Leerzeichenproblems wäre also Selberparsen:
Delphi-Quellcode:
Var TheProject: String;
B: Boolean;
i: Integer;
TheProject := GetCommandLine;
i := 1;
B := False;
While (i <= Length(TheProject)) and ((TheProject[i] > ' ') or B) do Begin
If TheProject[i] = '"' Then B := not B;
Inc(i);
End;
TheProject := Trim(Copy(TheProject, i, Length(TheProject) - i + 1));
If (TheProject <> '') and (TheProject[1] = '"') Then Begin
Delete(TheProject, 1, 1);
If (TheProject <> '') and (TheProject[Length(TheProject)] = '"') Then
Delete(TheProject, Length(TheProject), 1);
End;
ShowMessage(TheProject);
Nun, in meinem Fall wollte ich aber nicht die Parameterbehandlung im eigenem Programm verändern und hab mir somit ein Hilfsprogramm erstellt, welches den Parameter parst, anpaßt und an die eigentlich Anwendung weitergibt.
Delphi-Quellcode:
Var TheProject, TheApplication, TheParameter, TheWorkingDirectory: String;
B: Boolean;
i: Integer;
TheProject := GetCommandLine;
i := 1;
B := False;
While (i <= Length(TheProject)) and ((TheProject[i] > ' ') or B) do Begin
If TheProject[i] = '"' Then B := not B;
Inc(i);
End;
TheProject := Trim(Copy(TheProject, i, Length(TheProject) - i + 1));
If (TheProject <> '') and (TheProject[1] = '"') Then Begin
Delete(TheProject, 1, 1);
If (TheProject <> '') and (TheProject[Length(TheProject)] = '"') Then
Delete(TheProject, Length(TheProject), 1);
End;
TheApplication := ExctractFilePath(ParamStr(0)) + 'TheApplication.exe';
TheParameter := 'IniFile="' + TheProject + '" CreateIni=yes';
TheWorkingDirectory := GetDir(0);
If Integer(ShellExecute(0, nil, PChar(TheApplication), PChar(TheParameter),
PChar(TheWorkingDirectory), SW_NORMAL)) <= 32 Then
RaiseLastOSError;
Auf's Nötigste gekürzt kam letztendlich Folgendes raus, welches dann zusammen mit Delphi 7 eine kleine 15,5 KB-Datei ergab (mit UPX 9 KB), welche ich direkt innerhalb die Zielanwendung ausliefere.
(gut, daß ich so "faul" war und diese kleine App als String und nicht über Resource eingebunden hab, sei mal dahingestellt)
Delphi-Quellcode:
Program IDEForward;
Uses Windows, ShellAPI;
Var Mb, Pb,
Db:
Array[1..1024]
of WideChar;
M, P, D, P2: PWideChar;
B: Boolean;
Begin
M := @Mb;
GetModuleFileNameW(0, M, Length(Mb));
P2 := M + lstrlenW(M) - 1;
While P2^ <> '
\'
do Dec(P2);
lstrcpyW(P2 + 1, '
ManifestCreator.exe');
P := PWideChar(@Pb) + 10;
lstrcpyW(P, GetCommandLineW);
B := False;
While (P^ > '
')
or B
do Begin
If P^ = '
"'
Then B :=
not B;
Inc(P);
End;
While (P^ > #0)
and (P^ <= '
')
do Inc(P);
P2 := P;
While P2^ <> #0
do Inc(P2);
While (P2 > P)
and ((P2 - 1)^ <= '
')
do Dec(P2);
If P^ = '
"'
Then Begin
Inc(P);
If (P2 > P)
and (P2^ = '
"')
Then Dec(P2);
End;
Dec(P);
lstrcpyW(P - 8, '
IniFile=');
P^ := '
"';
Dec(P, 8);
lstrcpyW(P2, '
" CreateIni=yes');
D := @
Db;
GetCurrentDirectoryW(Length(
Db), D);
If Integer(ShellExecuteW(0,
nil, M, P, D, SW_NORMAL)) > 32
Then
Halt(1)
Else Halt(0);
End.