| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Neket ©   (2009-07-05 13:02:00) 

Снова день добрый. Собственно Сабж. А именно пытаюсь открыть файл таким вот образом:
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 а у меня строка. (((

---

Neket   (2009-07-05 13:16:00) [1]

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

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;

---

sniknik   (2009-07-05 13:14:00) [2]

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

---

Neket   (2009-07-05 13:13:00) [3]

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

---

Юрий Зотов   (2009-07-05 13:11:00) [4]

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

---

Наверх