Форум: "Начинающим";
Текущий архив: 2010.01.10;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.005 c