Discussion :

[simonseztech]

J'utilises Delphi 7 Enterprise.

Dans mon code j'utilise la procédure LockWorkStation.

La procédure LockWorkStation je ne la code pas !!! Elle est
dans Delphi 7 en quelque part.

Tout fonctionne bien sour 2000/XP mais lorsque je roule mon
code sous Windows 98 il me dit le fichier Intelli.exe est
lié à une exportation manquante USER32.DLL:LockWorkStation.

Je sais que je peux chargé des DLL dynamiquement ou sous
certaine condition. Mais dans ce cas ci je suis perdu.

Pouvez vous m'aider ???
Merci[/b]

[Laurent Dardenne]

Salut,
le SDK peut t'aider :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/sysinfo/base/lockworkstation.asp

LockWorkStation :
...
Requirements
Client: Requires Windows XP or Windows 2000 Professional.
Server: Requires Windows Server 2003 or Windows 2000 Server.

Donc cette API n'est implémentée sous 98.

[simonseztech]

ca je sais que ca fonctionne pas sous WIn98.

C'est exactement mon problème. Comment je dis à mon logiciel.
De ne pas loader ca sous Win98 et de le loader sous Win2000/XP.

La seule ligne de code que j'ai mis c'est

LockWorkStation;

rien d'autre .

Ce que je veux savoir c'est qu'il ne fasse plus d'erreur sous win98.

PS: l'erreur sous win98 apparait au démarrage de l'application et non
quand j'apelle cette procédure.

[Laurent Dardenne]

Salut,

ca je sais que ca fonctionne pas sous WIn98.

Certe, mais ce n'est pas précisé dans le message d'origine.

PS: l'erreur sous win98 apparait au démarrage de l'application et non
quand j'apelle cette procédure.

Peut être redéclarer l'API dans une unité, ce qui te permettrais de la charger selon l'OS en cours. Si tu utilises celle de Windows.pas je n'ai pas vue de test de version de Windows, donc il semble la charger dans tous les cas de figure.
Et n'ayant pas de W98 sous la main je n'ai pas pu tester cette proposition.

[simonseztech]

Merci beaucoup.
Je n'y avais pas pensé de redéclarer la procédure pour surpassé celle de windows.pas.
Voici mon code pour ceux que ca intéresse

Procedure TMainClientForm.LockWorkStation ;
var xLockWorkStation : function (Block: BOOL): BOOL; stdcall;
begin
if FunctionDetect ('USER32.DLL', 'LockWorkStation', @xLockWorkStation) then
xLockWorkstation(true);
end;

pour détecter si le fonction existe dans la librairie.

function FunctionDetect (LibName, FuncName: String; var LibPointer: Pointer): boolean;
var LibHandle: tHandle;
begin
Result := false;
LibPointer := NIL;
if LoadLibrary(PChar(LibName)) = 0 then exit;
LibHandle := GetModuleHandle(PChar(LibName));
if LibHandle <> 0 then
begin
LibPointer := GetProcAddress(LibHandle, PChar(FuncName));
if LibPointer <> NIL then Result := true;
end;
end;