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

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