Forum: Win32/Win64 API (native code)
Delphi
by SirThornberry,
13. Mär 2005
@Airblader: PosEx gibt es seit Delphi6 oder Delphi7 erst. Daher hab ich eine eigene Funktion noch gebaut:
function PosExt(const SubStr, S: string; Offset: Cardinal = 1): Integer;
var
I,X: Integer;
Len, LenSubStr: Integer;
begin
if Offset = 1 then
Result := Pos(SubStr, S)
else
Forum: Win32/Win64 API (native code)
Delphi
by SirThornberry,
13. Mär 2005
@Airblader: Deine variante ist ja die aus dem Ausgangspost. Und wenn ich deine Variante ausführe wird durch about:blank bei mir eine leeres IE-Fenster geöffnet, und durch die zweite anweisung wird dann die webseite in meinem Standardbrowser geöffnet. Das heißt ich hab ein offenes ie-fenster mit leerer seite
Forum: Win32/Win64 API (native code)
Delphi
by SirThornberry,
13. Mär 2005
Genau, wenn man den ie nutzt geht deine Variante, die Variante die ich gepostet hab sucht aus der Registry den Standardbrowser heraus und macht dann das gleiche
Forum: Win32/Win64 API (native code)
Delphi
by SirThornberry,
13. Mär 2005
wirst du mit Shellexecute alleine nicht hinn bekommen. Folgende Funktion sollte das machen was du willst:
procedure OpenHttpSite(AURL: String);
var LRegistry: TRegistry;
LBrowser: String;
LStart, LEnd: Integer;
begin
LRegistry := TRegistry.Create(KEY_READ);
try
LRegistry.RootKey := HKEY_CLASSES_ROOT;