applikation uden form

Kan du ikke bare lave en konsol-applikation?

Du kan bare glemme alle Application.etellerandet og skrive den kode du vil udføre.

Jo, du kan også lave en konsol-applikation, men så får du et konsolvindue op når programmet kører, og det vil du vel ikke?

den skal ikke bruge krudt på at åbne noget som helst, den skal bare udføre koden fra før :-)


procedure TForm1.FormCreate(Sender: TObject);
var
  H: hWnd;
begin
  H := Handle;
  while H <> 0 do
    begin
      if not ((H = Handle) or (H = Application.Handle)) then
        if IsWindowVisible(H) then
          PostMessage(H, WM_SYSCOMMAND, SC_MINIMIZE, 0);
      H := GetNextWindow(H, GW_HWNDNEXT);
    end;
application.Terminate;
end;

Det kan du godt, men så har du ikke handle til at starte med.
Men så skal du bare bruge:
H := GetWindow(0, GW_HWNDFIRST);
i linien efter begin

Vælg File->New...->Console Application

program Project1;
{$APPTYPE CONSOLE}
uses
  Windows;
const
  WM_SYSCOMMAND = $0112;
var
  H: THandle;
begin
  H := FindWindow('Shell_TrayWnd', nil);
  H := GetNextWindow(H, GW_HWNDFIRST);
  while H <> 0 do
    begin
      if IsWindowVisible(H) then
        PostMessage(H, WM_SYSCOMMAND, SC_MINIMIZE, 0);
      H := GetNextWindow(H, GW_HWNDNEXT);
    end;
end.

jeg får nogle fejl prøv lige at vis helt oppe fra:

program Project1;

og den skal ikke use forms

Copy og paste hele koden over i notepad og gem det som en .dpr fil.
Navnet på .dpr filen skal være det samme som navnet efter program
Dobbeltklik på filen og delphi åbner sig med projektet.

tak skal i ha

Jeg nåede ikke lige at få det til at virke, men hvis ikke gider at se på det konsol-vindue der kommer frem, så kan det her måske være nyttigt:

function GetConsoleWindow: THandle;
//Get handle for console Window
var
  S: AnsiString;
  C: Char;
  hConsole: THandle;
begin
  Result := 0;
  Setlength(S, MAX_PATH+1);
  if GetConsoleTitle(PChar(S), MAX_PATH) <> 0 then
  begin
    C := S[1];
    S[1] := '$';
    SetConsoleTitle(PChar(S));
    hConsole := FindWindow(nil, PChar(S));
    S[1] := C;
    SetConsoleTitle(PChar(S));
    Result := hConsole;
  end;
end;


Så burde du bare kunne smide ShowWindow(GetConsoleWindow, SW_HIDE); ind i starten af programmet, men jeg fik det desværre ikke rigtig til at fungere, men nu har du da funktionerne! :)