bonjour,

merci DUBOIS77 pour cet info :)

ben apparament tu developpe sous delphi 7 en mode CLX, je suis sous delphi 6 je vais voir si je peut mettre la CLX en place.

'QControl' est une des librairie de Qt il faut installer les composants correspondant, enfin faut les trouvés,j'ai chercher mais j'ai pas trouver :s

je te met 10/10 aussi
beau boulot :)

ces composant sont de toi ?

"le code n'est pas de tout sale, au contraire il est propre, clair et facile a comprendre.
".

pas sales as tu bien regarder .....

et non regarde toutes ces pages tu vera qu'il ne respecte pas le standard.

évite aussi les login passe en variable direct dans la bdr sinon il y a risque d'injection SQL, utilise les avec la fonction mysql_real_escape_string()


sinon un peut vide le code quand même ...

ben en faite le bouton quitter a du clipping, un petit effet de clipping (leger) quand je me deplace sur la forme et très accentuer quand je me déplace sur le bouton en lui même.

il y a pas la commande en doublebuffer pour corrigé sa ? (enfin si je me trompe pas je fait pas de composant visuel ^^")

salut bactérius ,

beau boulot, je vien de tester sa marhche impec sous seven aussi ;)

au debut je me demandait pourquoi tu avais fait sa mais après avoir lancer ta démo j'ai bien compris :D

un petit point noir nénmoins, le bouton quitter en bas de ta démo a un effet de clipping sur le déplacement de la form ou sur le bouton( d'ailleur plus accentué sur le bouton ), sa vien peut être de seven je c'est pas ^^"

sinon je vais suivre l'évolution de ton petit projet la :p

encore bravo et merci du partage .

salut,

une info qui met a nue ton code, pour retirer ton trial avec certain logiciel il est tres facile a voir le code que tu a fait pour ton app .net. En gros on vois ton code en clair on a juste a le modifier et plus de trial.

sur les apps en .net a par un obscuseur ( e c'est plus la syntaxe exact xD ) a la limite tu brouille un peut le code mais sa reste toujours reversable, un packer a la rigueur ;)

sinon si tu développe une app. vendu a 10 euro voir moins sa peut etre valable sinon au dela sa vaut pas le coup.

salut ,

j'ai fait une petite modif a ta fonction pour les paramètre car j'avais essayer de lui transmettre mais j'avais un soucis :s

le code que je vais te poster le résoud :)

function LaunchAndWait(sFile,sParam: String; wShowWin: Word): Boolean;
var
  cExe: array [0..255] of Char;
  StartInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
begin
  Result:=True;
  FindExecutable(PChar(ExtractFileName(sFile)), PChar(ExtractFilePath(sFile)), cExe);
  ZeroMemory(@StartInfo, SizeOf(StartInfo));
  with StartInfo do begin
    cb:=SizeOf(StartInfo);
    dwFlags:=STARTF_USESHOWWINDOW;
    wShowWindow:=wShowWin;
  end;
  if CreateProcess(cExe, pchar(sparam), nil, nil, True, 0, nil, nil, StartInfo, ProcessInfo)
  then WaitForSingleObject(ProcessInfo.hProcess, INFINITE)
  else Result:=False;
end;

un peut de code en moin mais les paramètres passe nickel la :p