Forum: Win32/Win64 API (native code)
Delphi
by CalganX,
16. Jul 2003
Nein... Brauche ich aber (leider) auch nicht mehr... :wall:
Bei der "Konvertierung" ist mir ein Fehler unterlaufen: in deinem Orignial hast du den Dateinamen automatisch drangehangen. Ich wiederrum habe dies nicht gemacht und müsste daher eigentlich den Dateinamen selber "richten". Habe ich gemacht und hat funktioniert... :D
Danke für deine Hilfe...!
Chris
Forum: Win32/Win64 API (native code)
Delphi
by CalganX,
16. Jul 2003
Nicht großartig verändert:
function CreateShortcut(const sTargetPath: string;
const sParams: string;
const sOutput: string;
const sExecPath: string): boolean;
const
IID_IPersistFile: TGUID = '{0000010b-0000-0000-C000-000000000046}';
var
slShellLink : IShellLink;
Forum: Win32/Win64 API (native code)
Delphi
by CalganX,
16. Jul 2003
Hi,
da wir gerade beim Thema sind gibt es jetzt wieder ein Problem:
ich habe die Funktion von dir nur um die einige Parameter erweitert, die in folgendem Source deutlich werden sollen:
procedure TMainForm.btnDo1Click(Sender: TObject);
var
sExecPath, sPath, sArg, sTemp: string;
begin
sPath := 'rundll32.exe';
sTemp := cbModules.Text;
sTemp := copy(sTemp, pos(':: ', sTemp) + 3,...
Forum: Win32/Win64 API (native code)
Delphi
by CalganX,
16. Jul 2003
:wall: wirklich dumm muss man sein... :cry:
In dem Thread steht ja auch noch die Antwort... :wall:
Chris