Why it causes a mistake :

← →
Mr. xXx (2003-05-19 15:09) [0]

procedure TForm1.Button1Click(Sender: TObject); var h:HWND; dest:PAnsiChar; begin If OpenDialog1.Execute then begin Dest:=StrPCopy(nil,OpenDialog1.FileName); ShellExecute(h, "explorer",dest, nil, nil, SW_SHOW); end; end;

If who knows I shall be grateful for the answer.

← →
Skier © (2003-05-19 15:17) [1]

>Mr. xXx (19.05.03 15:09)
1) You should allocate memory for dest variable !
2) There"s no need in dest using, you can just write this
way :
ShellExecute(Application.Handle, PChar("explorer"),PChar
(OpenDialog1.FileName), nil, nil, SW_SHOW);

← →
Юрий Зотов © (2003-05-19 15:21) [2]

Под строку не выделена память - Dest не инициализирован (кстати, H тоже не инициализирована).

Только ничего этого и не требуется:

if OpenDialog1.Execute then
ShellExecute(0, ... , PChar(OpenDialog1.FileName), ...);

← →
Skier © (2003-05-19 15:22) [3]

Oops. :)
ShellExecute(Application.Handle, nil, PChar("explorer"),PChar(OpenDialog1.FileName), nil, SW_SHOW);

← →
VMcL © (2003-05-19 15:29) [4]

>Skier © (19.05.03 15:22)

PChar("explorer")
Зачем строку-константу преобразовывать в PChar? Компилятор и сам это умеет :)

← →
VMcL © (2003-05-19 15:33) [5]

>Mr. xXx (19.05.03 15:09)
>If who knows I shall be grateful for the answer.

If anyone knows I shall be grateful for the answer.

If anyone knows I will be grateful for the answer.
shall - с оттенком должествования

Why it causes a mistake : Найти похожие ветки