WideString-Dateinamen an Shellexecute übergeben

[messie]

Hallo,

ich renne mal wieder vor die TypeCast-Wand des BCB. Es gelingt mir nicht, ShellExecute einen Dateinamen zum öffnen zu übergeben. Der Dateiname kommt als Widestring an.
Eigentlich kann das doch nicht so schwer sein....
Hat jemand einen Tipp?

Grüße, Messie

[DGL-luke]

ShellExecuteW



EDIT: Da hat der BCB aber verdammt recht, wenn er dich den Widestring in Shellexecute(A) quetschen lassen würde, hättest du einen wunderbaren fehler in deinem Code, der die App komplett lahmlegt, aber ewig zum finden braucht...

[messie]

Zitat von DGL-luke:

EDIT: Da hat der BCB aber verdammt recht, wenn er dich den Widestring in Shellexecute(A) quetschen lassen würde, hättest du einen wunderbaren fehler in deinem Code, der die App komplett lahmlegt, aber ewig zum finden braucht...

OT: Wäre schon schön, wenn der BCB bei den Fehlermeldungen etwas mehr von Delphi geerbt hätte. Da fühle ich mich ein wenig an die alten Turbopascal-Compiler erinnert....

Danke, Messie

[himitsu]

Für die, die es mal brauchen, wo wirklich ein anderer Type verlangt wird, also man zur Verfügung hat:

entweder über 'ne Zwischenvariable, oder einfach konvertieren

Delphi-Quellcode:

Var MyStringW, W: WideString;
  MyStringA, A: AnsiString{String};

Procedure TestFunc (InPut: PAnsiChar{PChar}) External ... 'TestFuncA';
Procedure TestFuncA(InPut: PAnsiChar{PChar}) External ... 'TestFuncA';
Procedure TestFuncW(InPut: PWideChar)        External ... 'TestFuncW';

W := MyStringA;
TestFuncW(PWideChar(W));

A := MyStringW;
TestFunc(PChar(A));
TestFuncA(PAnsiChar(A));

TestFuncW(PWideChar(WideString(MyStringA)));

TestFunc(PChar(String(MyStringW)));
TestFuncA(PAnsiChar(AnsiString(MyStringW)));

Ansonsten macht es sich natürlich nicht schlwecht, wenn man die passende API verwendet