Форум: "Начинающим";
Текущий архив: 2009.09.06;
Скачать: [xml.tar.bz2];
ВнизКак преобразовать 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.005 c