Oké, ik heb hier een hele basale (en snelle) oplossing voor je gemaakt.
Voeg het formulier in de ZIP toe aan je project en pas de DPR van je project als volgt aan: PasswordForm.zip
Delphi Code:
program NAAM_VAN_JE_PROJECT;
uses
Windows, // DIT TOEVOEGEN
Forms,
// ALLE ANDERE FORMS EN UNITS KOMEN HIER TE STAAN (TOEGEVOEGD DOOR DELPHI)
UfrmPassword in 'UfrmPassword.pas' {frmPassword}; // DIT TOEVOEGEN
{$R *.res}
var // DIT TOEVOEGEN
sUserName: string; // DIT TOEVOEGEN
sPassword: string; // DIT TOEVOEGEN
begin
Application.Initialize; // REEDS AANGEMAAKT DOOR DELPHI
Application.MainFormOnTaskbar := True; // REEDS AANGEMAAKT DOOR DELPHI
// HIER KOMEN ALLE APPLICATION.CREATEFORM REGELS TE STAAN (AANGEMAAKT DOOR DELPHI)
if TfrmPassword.Execute(sUserName, sPassword) and // DIT TOEVOEGEN
(sUserName = 'alain') and // DIT TOEVOEGEN
(sPassword = 'janquart') then // DIT TOEVOEGEN
Application.Run // DEZE REGEL STOND ER AL
else // DIT TOEVOEGEN
MessageBox(0, 'Ongeldige login opgegeven', 'Login fout', MB_IcONERROR or MB_OK); // DIT TOEVOEGEN
end.
En mocht het niet in één keer werken, dan heb ik ook een testprojectje voor je: NLDLogin.zip
Bookmarks