Uses Registry; procedure TForm1.Button1Click(Sender: TObject); Var Registre : TRegistry; begin //Récupère l'url de la page de démarrage Registre:=TRegistry.Create; //Crée un objet TRegistry Registre.RootKey:=HKEY_CURRENT_USER; //Définit la clé principale Registre.OpenKey('\Software\Microsoft\Internet\Explorer\Main',False); {"OpenKey" ouvre une clé particulière (False signifie que la clé n'est pas crée si elle n'existe pas} ComboBox1.Items.Add(Registre.ReadString('Start Page')); //Renvoie un string à partir du nom de la valeur et l'ajoute dans le ComboBox Registre.CloseKey; //Ferme la clé Registre.Free; //Détruit l'objet end;
worker := FindWindowEx(ie,0,'WorkerA',nil); if worker = 0 then worker := FindWindowEx(ie,0,'WorkerW',nil);
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question... test:=GetURL; FOR i:=0 TO ComboBox1.Items.Count DO begin if test=ComboBox1.Items[i] then begin flag:='oui'; showmessage('Déjà présent dans votre sélection '+ test); break end; end; ...
Function GetText(WindowHandle: hwnd):string; var txtLength : integer; buffer: string; begin TxtLength := SendMessage(WindowHandle, WM_GETTEXTLENGTH, 0, 0); txtlength := txtlength + 1; setlength (buffer, txtlength); sendmessage (WindowHandle,wm_gettext, txtlength, longint(@buffer[1])); Delete(Buffer,Pos(#0,Buffer),1); result : = Buffer; end;
Test := GetURL; // IndexOf te renvois l'index ou ce trouve la valeur rechercher. // Si tu as -1 c'est que la valeur n'existe pas. if ComboBox1.Items.IndexOf(test) > -1 then begin flag:='oui'; showmessage('Déjà présent dans votre sélection '+ test); end;