Главная страница
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.017 c
2-1247035536
dmitry_12_08_73
2009-07-08 10:45
2009.09.06
Форматирование вычисляемого поля в SQL-запросе


2-1246917522
бульдозер
2009-07-07 01:58
2009.09.06
штриховка замкнутых областей


15-1246975723
Пит
2009-07-07 18:08
2009.09.06
Программирование - влияние на межличностые контакты


4-1216586310
batya-x
2008-07-21 00:38
2009.09.06
поск файлов на winAPI


6-1205471134
snake-as
2008-03-14 08:05
2009.09.06
Отправка письма через прокси