Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.01 c
2-1246958470
buhalych
2009-07-07 13:21
2009.09.06
RSA


15-1247003708
Petr V. Abramov
2009-07-08 01:55
2009.09.06
Всем поклонникам "Любэ" посвящается :)


15-1246617399
vajo
2009-07-03 14:36
2009.09.06
Как правильно написать заявление на увольнение?


15-1244637305
nach
2009-06-10 16:35
2009.09.06
C++ to Delphi


15-1246280140
@!!ex
2009-06-29 16:55
2009.09.06
Россия в PWRC