Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.01.10;
Скачать: CL | DM;

Вниз

D2009 PChar является PWideChar, как правельно?   Найти похожие ветки 

 
Андрей Смирнов   (2009-11-20 10:25) [0]

Всем Привет,

Есть функция, на D2009 не могу преобразовать,
procedure StartNewBrowserWindow(const URL: String);
var
 DDEConv: TDDEClientConv;
 URLFired: bool;
 App: String;
 UpApp: String;
 p: array[0..MAX_PATH] of PAnsiChar;
begin
 UrlFired := False;
 App := GetAssociatedProgram("HTM");
 UpApp := Uppercase(App);
 Delete(App, Pos(".EXE", UpAPP), Length(App));
 if Pos("FIREFOX.EXE",
   UpApp) > 0 then
 begin
   DDEConv := TDDEClientConv.Create(nil);
   DDEConv.ServiceApplication := App;
   if DDEConv.SetLink("FIREFOX", "WWW_OpenURL") then
     if DDEConv.RequestData(URL + ",,0x0,0x0") <> nil then
       if DDEConv.SetLink("FIREFOX", "WWW_Activate") then
         URLFired := DDEConv.RequestData("0xFFFFFFFF,0x0") <> nil;
   DDEConv.Free;
 end
 else if Pos("IEXPLORE.EXE",
   UpApp) > 0 then
 begin
   DDEConv := TDDEClientConv.Create(nil);
   DDEConv.ServiceApplication := App;
   if DDEConv.SetLink("iexplore", "WWW_OpenURL") then
     if DDEConv.RequestData(URL + ",,0") <> nil then
       if DDEConv.SetLink("iexplore", "WWW_Activate") then
         URLFired := DDEConv.RequestData("0,0") <> nil;
   DDEConv.Free;
 end;
 if UrlFired = False then
 // WinExec(StrPCopy(@p, URL), SW_SHOWNORMAL); // тут баг *
end;


* - [DCC Error] ...E2010 Incompatible types: "Char" and "AnsiChar"

Подскажите что не так и как решить сие?


 
Игорь Шевченко ©   (2009-11-20 10:27) [1]

http://ln.com.ua/~openxs/articles/smart-questions-ru.html



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

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

Наверх




Память: 0.47 MB
Время: 0.013 c
15-1257433390
test
2009-11-05 18:03
2010.01.10
Lazarus + Excel


2-1258537315
Кузьма
2009-11-18 12:41
2010.01.10
Работа с ячейками Excel при экспорте из StringGrid


2-1258308164
&#8467;o&#8467;
2009-11-15 21:02
2010.01.10
Клавиатура в замену джостику


8-1202382479
DVM
2008-02-07 14:07
2010.01.10
Детектор расфокусированного изображения.


2-1258701942
Андрей Смирнов
2009-11-20 10:25
2010.01.10
D2009 PChar является PWideChar, как правельно?