Текущий архив: 2009.09.06;
Скачать: CL | DM;

Вниз

Как преобразовать 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;

---

Страницы: 1 вся ветка

Текущий архив: 2009.09.06;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.057 c