Как преобразовать string в PAnsiChar.

← →
Neket (2009-07-05 13:02) [0]

Снова день добрый. Собственно Сабж. А именно пытаюсь открыть файл таким вот образом:
procedure TForm2.CheckListBox1Click(Sender: TObject); var Path:PAnsiChar; h: hwnd; begin Path:=TMyObject(CheckListBox1.Items.Objects[CheckListBox1.ItemIndex]).StrInBox; if ShellExecute(h, "open", Path, nil, nil, SW_SHOW) < 32 then begin ShowMessage("Oblomis Drug") end; end;

Но ShelExecute принимает только PAnsiChar а у меня строка. (((

← →
Юрий Зотов © (2009-07-05 13:11) [1]

ShellExecute(h, "open", PChar(строка)...

← →
Neket (2009-07-05 13:13) [2]

))) Вот помню что просто, а как именно не помню. Спасибо огромное.

← →
sniknik © (2009-07-05 13:14) [3]

> Но ShelExecute принимает только PAnsiChar а у меня строка. (((
у тебя
Path:PAnsiChar;
и ты неправильно с ним работаешь.

← →
Neket (2009-07-05 13:16) [4]

Уже все переделано вот так:

var Path:String; h: hwnd; begin Path:=TMyObject(CheckListBox1.Items.Objects[CheckListBox1.ItemIndex]).StrInBox; if (FileExists(Path)) and (ShellExecute(h, "open", PChar(Path), nil, nil, SW_SHOW) < 32) then begin ShowMessage("Невозможно окрыть файл "+ExtractFileName(Path)); end; end;

Как преобразовать string в PAnsiChar. Найти похожие ветки